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Attn. Assembly Programmers : 

1. Room is left in the command and function tables for additional 
functions and commands. 

2. There are over 110 fi contiguous unused core locations available 
for new coding. 

3. The general disk-read routine in POCARL, "SWAP", may be used tp 
read over 500 core locations of code to perform special 
functions sucn as implement dectape, graphics, or four-word 
floating point routines. 

4. There are several unused page zero locations. 

5. The most important aspect of POCARL is that is a program totally 
different from FOCAL; It is a recompilation, not an overlay. 

Hardware EAE 

Hardware EAE is standard in POCARL. That is, it is edited into 
the source. But, non-EAE coding has been left in also and may be 
used by making the patch described in the comments in the source at 
"MP4". 

Colpac Program mers: 

The PLOT, OPTION SCOPE, ERASE SCOPE, and TYPE/ASR & commawis are 

ignored, so your programs will run in POCARL provided that 
they are not too large or generate too many in-core variables. 

Compiling POCARL : 

The source for POCARL is in two parts for ease in editing, etc. 

The running version of POCARL is an 18 disk segment file (TSS/8 
si^e disk segments). The first 16 segments are created by 
compiling the source, as it is, using PAL8. That is, no additions 
are necessary. The 17th and 18th segments are created by com¬ 
piling the source with the label, HIGH, defined to be 0000. 

An example of responses to PAL8 follows: 

.R PAL8 

*FBIN1.BN^-POC14A.PA,POC14B.PA 
ERRORS DETECTED: 0 
LINKS GENERATEDS 0 
.R PAL8 

*FBIN2. BN <$=TTY:, DSK s FOC 14.tu P A, DSK sFOC14B. PA 
HIGH=0000 (RETURN) 

CTRL/Z (WHEN PAL8 STOPS) 

CTRL/Z (LETS PALS CONTINUE WITH PASS 2) 

ERRORS DETECTED: 0 

LINKS GENERATED: 0 
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When PAL8 has finished, PBIN1.BN will be the binary file con¬ 
taining codL ng which occupies segments 1 through 16 of the TSS/8 
disk file. FBIN2.BN will contain coding which occupies segmerte 
17 and 18 of the disk file, POCARL. Because TSS/8 LOADER loads 
into core, end because POCARL requires all 4K of oore, several 
core locations beginning about location 1740- will not have the 
proper contents after loading FBIN1. So, the correct contents, 
as read from the listing, will have to be hand-patdn ed. PBIN2 
will have to be loaded separately from the main file of 16 
segments by using LOADER to load PBIN2 into core and then by 
appending it to the main file using Monitor commands; 

.SAVE POCARL 10000 0 


The above-described procedure for loading PBIN1 and PBIN2 and 
creating the SAVE-format file, POCARL, is awkward, particularly 
because LOADER loads into core and not, say, into a disk file. 
This procedure is for use under the TSS/8 timesharing system. 
There must be a better way... 



4 



CONTENTS 


SECTION 

1, INTRODUCTION 

2, abbreviations 

3 , program preparation 

«• EXECUTION COMMANDS! GO, GOTO, DO 

5. USE OF SPECIAL KEYS 

6. VARIABLES 

7 , ASSIONMgNT COMMAND, SET 

8, ARlTHMgTSe OPERATIONS AND PRIORITIES 

i. INPUT/OUTPUT COMMANDS! ASK, TYPE 

IB. NUMERIC FORMATTING 

u. Ascn format 

12, OPTIONS IN BOTH THE ASK AND TYPE COMMANDS 

13, TRACING 

14, COMMENT 

18. THE SCOPE AS AN OUTPUT DEVICE, OPTION SCOPE, ERASE SCOP! 

15, PLOTTING ON THE CRT 

17. JOYSTICK 

U. GOTO 

19. IF 

20. QUIT 

21. UO AND RETURN 

32. FOR ANO BREAK 

23, EDITING COMMANDS! WRITE, ERASE, MODIFY 

24, LIBRARY COMMANDS 

25, LOGOUT 

26, DISK DATA PILES 

27, COMPUTED PILE NAMES 

23, OPTION COMMANDS 

29, USE OF HIGH AND L0-8PEED PUNCH AND READER POR PROGRAM SAVE 
AND RESTORE 

30, ERROR MESSAGES, COMPUTED LINE AND GROUP NUMBERS, RANDOM 
NUMBER GENERATOR INITIALIZATION 

31, COMMAND SUMMARY 


APPENDICES 



1. INTRODUCTION 


THIS MANUAL describes THE PROGRAMMING LANGUAGES cqlpac ccarleton 
ON-LINE LANGUAGE FOR PLOTTING AND ARITHMETIC CALCULATION) AND POCARL 
(FOR FORMULATING ON-LINE CALCULATIONS IN ALGEBRAIC LANGUAGE AT CARLETON 
COLLEGE), BOTH ARE ADAPTATIONS OF FOCAL WHICH IS BASED ON JOSS, 

COLPAC IS AN 8K VERSION OF FOCAL WHICH RUNS IN AN 8/L COMPUTER, IT 
FEATURES GRAPHICS AND ACCOMMODATES LARGER PROGRAMS AND MORE VARIABLES 
THAN FOCAL AND FOCARL. 

POCARL RUNS UNDER THE T8S/8 TIMESHARING SYSTEM (EDUSYSTEM 50), WHICH 
REQUIRES THAT IT RUN IN ONLY 4K OF CORE, HALF THE WORKING SPACE OF 
COLPAC, FOCARL FEATURES RANDOM ACCESS DISK DATA STORAGE, 

BOTH LANGUAGES SUPERCEDE FOCAL IN COMMAND FLEXIBILITY I LIBRARY COMMANDS, 
RELATIONAL IF* COMPUTED GOTO, COMPUTED I/O FORMAT CONTROL, OPTIONS 
(READER, PUNCH, LINEPRINTER, ETC), BREAK FROM FOR LOOP, DECREMENT IN 
FOR LOOP, AND DOUBLE SUBSCRIPTING ARE STANDARD. COLPAC'S GRAPHICS 
COMMANDS ARE IGNORED BY FOCARL, SO ANY SMALL COLPAC PROGRAM CAN BE RUN^ 
IN FOCARL, 

THIS MANUAL DESCRIBES THE SYNTAX AND USE OF COMMANDS FOR BOTH COLPAC 
AND FOCARL. FOR THE MOST PART, THESE LANGUAGES ARE IDENTICAL IN 
COMMAND REPERTOIRE, HOWEVER, THERE ARE SOME COMMANDS SPECIFIC TO ONE 
AND NOT THE OTHER, TO HELP CLARIFY DIFFERENCES BETWEEN THE TWO, 

THE FOLLOWING CONVENTION HAS BEEN EMPLOYED IN THIS MANUAL! 

«*C*" PRECEOES ANY LINES IN THIS MANUAL WHICH ARE SPECIFIC TO COLPAC, 
»*F*« PRECEOES THOSE WHICH ARE SPECIFIC TO FOCARL, 

IF ONE OF THESE FLAGS APPEARS IN A SECTION HEADING, THEN THAT ENTIRE 
SECTION IS SPECIFIC TO THE LANGUAGE OENOTEO BY THE FLAG, 

ALL OTHER REFERENCES TO FOCARL AND COLPAC WHICH APPEAR THROUGHOUT THIS 

manual apply TO both languages. 


2 , ABBREVIATIONS 

O THE ONLY SPACES NECESSARY IN A LINE ARE THE SPACES SEPARATING THE ^ 

COMMAND (AND sub-commands and optional parameters in library and 

OPTION COMMANDS) FROM ITS ARGUMENT ANO SEPARATING COMMAND LINES FROM 
LINE NUMBERS, THE OTHER SPACES SHOWN IN THE COMMAND LINES IN THIS 

manual are included for ease of reading, 

2) AN ARITHMETIC EXPRESSION, AS USED IN THE EXPLANATIONS FOLLOWING, 
MEANS AN EXPRESSION INCLUDING CONSTANTS, VARIABLES, OR FUNCTION 

values related via the five arithmetic operations (♦ - * / *). 

EXAMPLES! -7,2 B-A FSQT(3*2.2a4/17.4) FSQT(FABS(FS1N (B/2)))*3 

3 ) ALL COMMANDS IN FOCARL MAY BE ABBREVIATED TO THEIR INITIAL LETTERS. 
THUS, ANY WORD WITH THE SAME INITIAL LETTER AS A FOCARL COMMAND 
WILL BE INTERPRETED AS THAT COMMAND, SEE THE EXAMPLE ON THE NEXT 
PAGE, 
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command 


EFFECT 


T A, TYPE A i OR TRY A 
6 » GO t OR GOSH 
0 A# DO AIL* OR OARNIT ALL 


TYPES THE VALUE OF VARIABLE A 
EXECUTES PROGRAM STARTING AT BEGINNING 
EXECUTES PROGRAM STARTING AT BEGINNING 


THERE ARE TWO PAIR OF COMMANDS WITH THE SAME INITIAL LETTERSl 
GO/GOTO LOGOUT/LIBRARY 

G WITHOUT AN ARGUMENT IS GO—BEGIN EXECUTION AT LOWEST LINE NUMBER 
G WITH AN ARGUMENT (E«G.«G 1.07) IS GOTO—BEGIN EXECUTION AT LINE 
NUMBER 3PECIFIE0 

L WITHOUT AN ARGUMENT* LOGOUT—RETURN TO MONITOR 
L WITH ARGUMENTS! LIBRARY COMMAND 

FIRST ARGUMENT SHOULD BE SUBCOMMAND (C#D,S,X) 

*F* FIRST ARGUMENT MAY ALSO BE "I" OR "O". 

SECOND ARGUMENT IS FILE NAME 

THIRO ARGUMENT IS ACCOUNT NO. (L X,L C COMMANDS ONLY) 

*F* ACCOUNT NO. MAY ALSO BE USED WITH "L I" COMMAND. 

#F* FOURTH ARGUMENT IS LINE NUMBER (L X COMMAND ONLY) 
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3, PROCRAM PREPARATION 

THE FORM OF A COLPAC OR POCARL PROCRAM 

A DIRECT COMMAND 13 ONE WHICH 13 EXECUTED IMMEDIATELY AFTER THE CARRIAGE 
RETURN TERMINATING THE LINE HAS BEEN TYPED. THIS ° 1 FFERS FROM AN INOIREOT 
COMMAND WHICH BEGINS WITH A LINE NUMBER. A PROGRAM, AS IT IS USUALLY 
DEFINED, IS A SERIES OF COMMANDS WHICH ARE EXECUTED EITHER COMPLETELY 
SEQUENTIALLY OR IN AN ORDER UNDER the CONTROL OF THE PROGRAM ITSELF. 
PROGRAM CONTROL AND BRANCH STATEMENTS WILL BE EXPLAINED LATER. WE WILL 
CONTINUE NOW IN OUR EXPLANATION OF INDIRECT PROGRAMMING, 

LINE NUMBERS AND GROUP NUMBERS 

A LINE NUMBER IN FOCARL HAS A VALUE BETWEEN 1.01 AND 31.99, INCLUSIVE. 

THE NUMBER HAS TWO DIGITS, NOT BOTH ZERO, TO THE RIGHT OF THE DECIMAL 
POINT, A SPACE BETWEEN THE LINE NUMBER AND THE COMMAND IS REQUIRED. 

A GROUP NUMBER IS AN INTEGER BETWEEN t AND 31, INCLUSIVE, IT IS USJD TO 
REFER TO ALL LINES, THE INTEGER PART OF WHOSE LINE NUMBER IS EQUAL TO 
THAT NUMBER* THUS, GROUP ONE INCLUDES ALL LINES NUMBERED 1.01-1,991 
GROUP TWO, LINES 2.01-2,991 ETC, GROUP NUMBERS ARE USEO PRIMARILY FOR 
REFERENCING SUBROUTINES, 

OIRECT VS, INDIRECT PROGRAMMING 

USING INDIRECT COMMANDS OFFERS SEVERAL ADVANTAGES OVER PROGRAMMING WITH 
DIRECT COMMANDS, TO INSERT A STEP, ONE NEED ONLY ASSIGN IT A LINE NUMBER 
BETWEEN THE NUMBERS OF THE OTHER LINES, DIRECT PROGRAMMING REQUIRES THE 
USER TO RETYPE THE ENTIRE SERIES OF STEPS, IN INDIRECT PROGRAMMING, 

ONE CAN DELETE OR CHANGE A LINE BY MERELY TYPING ANOTHER LINE WITH THE 
SAME LINE NUMBER. DIRECT PROGRAMMING AGAIN REQUIRES COMPLETE RETYPING, 

in indirect programming, the user is also able to list out his program, 

is IT EXISTS, AT ANY TIME, EVEN DURING EXECUTION. DIRECT PROGRAMMING 

requires one to look back over the tty print-out and try to separate 
the program from output, false starts, etc. direct programming is, 

BY DEFINITION, COMPLETELY SEQUENTIAL, SINCE COMMANDS ARE EXECUTED IN THE 
ORDER THEY ARE ENTERED. THIS IS THE PRINCIPAL DISADVANTAGE OF DIRECT 
PROGRAMMING, SINCE IT CANNOT INCLUDE CONDITIONAL STATEMENTS TO ALTER THE 
ORDER OF EXECUTION, THIS IS WHY DIRECT PROGRAMMING IS SELDOM USED, 

EXCEPT FOR SHORT, STRAIGHT-FORWARD CALCULATIONS, 
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MORfc than one command per line 

MULTIPLE COMMANDS MAY BE SPECIFIED ON ONE LINE# SO LONQ AS THEY ARE 
SEPARATED BY SEMI-COLONS. THERE ARE CERTAIN RESTRICTIONS UPON THIS* 

1) ANY COMMAND STRING FOLLOWING A FOR COMMAND ON THE SAME LINE 
WILL BE EXECUTEO ONCE FOR EACH ITERATION OF THE FOR COMMAND, 

2 ) ANY COMMAND FOLLOWING A COMMENT STATEMENT ON THE SAME LINE IS 
A88UMEQ BY FOCARL TO BE PART OF THE COMMENT AND WON»T BE EXECUTEO, 

8 ) ANY COMMAND FOLLOWING AN ERASE TEXT, MODIFY, LIBRARY DELETE, 
library call, or library XTENO COMMAND ON THE SAME LINE 
WILL NOT BE EXECUTED. 


4, EXECUTION COMMANDS* GO, GOTO, DO 

GO * DO , OR DO ALL CAUSES EXECUTION OF THE PROGRAM STARTING WITH 
THE SMALLEST LINE NUMBER 

GOTO AB.CD , USED AS A DIRECT COMMAND, STARTS PROGRAM EXECUTION AT 
LINE AB.CD 


DO B AS A OIRECT COMMAND, EXECUTES ONLY GROUP B. 
DO AB.CD EXECUTES ONLY LINE AB.CD 


S, THE USE OF SPECIAL KEYS IN FOCARL 
PANIC BUTTONS 

aC (a INDICATES THE CONTROL KEY, MARKED CTRL) IS USED TO STOP EXECUTION 
OF A PROGRAM. CONTROL STAYS IN FOCARL INDICATED BY AN «*«, THE CURRENT 
PROGRAM IS PRESERVED. 

• F* ALL TEXT I/O RETURNS TO THE TELETYPE. 

♦F* XL I/O MODE (DISK DATA FILE I/O) STATUS REMAINS UNCHANGED. 

*F# aBS (CONTROL B THEN JUST 8 ) IS USED AS AN ABNORMAL EXIT FROM 
*F* FOCARL. CONTROL RETURNS TO MONITOR, INDICATED BY A «." THE CURRENT 
*F* PROGRAM MAY BE RESTORED BY TYPING "START" AND RETURN, PROVIDED NO 
*F* INTERVENING COMMANDS ARE TYPEO (EXCEPT FOR A FEW WHICH ARE 0ESCRI8E0 
#F* l N DEC'S "INTRODUCTION TO PROGRAMMING") 

«F* aBS IS ALSO USED TO EXIT FROM OTHER PROGRAMS THAN FOCARL. 
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while entering programs 

CARRIAGE RETURN (CR) 

TYPING A CARRIAGE RETURN DIRECTS FOCARl TO ANALYZE AND EXECUTE THE 
LINE JUST TYPED IN, UNTIL A CARRIAGE RETURN IS TYPED, POCARL MERELY 
READS IN THE CHARACTERS ONE-BY-ONE AND STORES THEM, POCARL ALSO 
GENERATES A LINE PEED IN RESPONSE TO EVERY USER«TYPED CARRIAGE RETURN, 

LINE PEED (UP) 

LlNEPEEOS ARC IGNORED WHEN ENTERING PROGRAMS 
RUBOUT 

RUBOUT WILL OELETE ONE PREVIOUSLY TYPED CHARACTER PQR EACH TIME IT IS 
STRUCK# UP TO THE "*» AT THE LEFT MARGIN, 

BACKARROW (SHIFT 0) + 

WHEN TYPING IN A PROGRAM LINE OR COMMAND STRING, THIS KEY DELETES THAT 
PART OP THE LINE TO THE LEFT OP IT. 

SEE THE SECTION ON THE MOOIPY COMMANO FOR THE USE OP SPECIAL KEYS WHILE 
MODIFYING A PROGRAM LINE, 

DURING INPUT AND OUTPUT 

RUBOUT 

IN RESPONSE TO AN INPUT REQUEST, 

*C* IT WILL OELETE CHARACTERS ONE AT A TIME BACK TO THE "I", 

*F* IT WILL BE IGNORED. 

BACKARROW (SHIFT 0) 

IN RESPONSE TO AN ASK COMMAND, DELETES THE VALUE JUST TYPED IN, ALLOWING 
THE USER TO TYPE IN ANOTHER VALUE. '*0 


*G 

USEO TO RING THE BELL 
ALTMOOE 

WHEN USED IN RESPONSE TO AN INPUT REQUEST, IT DIRECTS POCARL TO RETAIN 
THE FORMER VALUE OP THE VARIABLE. 
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6 . variables in focarl 
VARIABLE NAMES 

a variable name in focarl must begin with a letter other than f. f is 

USED TO DENOTE A FUNCTION CALL AND CANNOT BE USED AS THE FIRST LETTER OF 
A VARIABLE NAME. AFTER THE INITIAL LETTER# ANY ALPHANUMERIC CHARACTER 
£A LETTER A-Z OR A DISIT 0-G) MAY FOLLOW. SOME SHIFT CHARACTERS 
ARE ALLOWED AS WELL* BUT USUALLY WITH UNOESIREO EFFECTS IN ASK ANO 
TYPE COMMANDS. E.O.# I M M, ETC. FOCARL ONLY REMEMBERS THE FIRST 
TWO CHARACTERS OF A VARIABLE NAME, SO ANY TWO SIMPLE VARIABLES BEGINNING 
WITH THE SAME TWO CHARACTERS ARE CONSIDERED TO BE THE SAME. 

•SET 3123*7,02 
•SET 9124*14/3 
•TYPE 8123,3124 
4.667 4.667 • 


YOU MAY DIFFERENTIATE BETWEEN TWO VARIABLE NAMES WITH THE SAME FIRST 
TWO (OR MORE) CHARACTERS BY USING SUBSCRIPTS, VARIABLES MAY HAVE SINGLE 
OR DOUBLE SUBSCRIPTS. THE LIMITS ON A SINGLE SUBSCRIPT ARE FROM 1 TO 
2047. IN A DOUBLE SUBSCRIPTED VARIABLE# THE FIRST SUBSCRIPT IS A POSITIVE 
INTEGER LESS THAN 32# The SECOND LESS THAN 64. THE SUBSCRIPT (EITHER 
SINGLE OR DOUBLE) MUST BE ENCLOSED IN PARENTHESES. IN A DOUBLE SUB¬ 
SCRIPTED VARIABLE# THE TWO SUBSCRIPTS ARE SEPARATEO BY A COMMA, 

SUBSCRIPTS MAY BE EXPRESSIONS# IN WHICH CASE THEIR VALUES ARE TRUN¬ 
CATED, 

LISTING THE DEFINED VARIABLES 

TO GET A LIST OF THE VARIABLES THAT HAVE BEEN DEFINEO ANO THEIR CURRENT 
VALUES (STORED IN THE SYMBOL TABLE), TYPE *TYPE S 


•SET VIAL»12 
•SET VILE«3S 
♦TYPE VIAL#V!LE 
35 33 * 


SUBSCRIPTED VARIABLES 


7. ASSIGNMENT COMMANOt SET 

THE set COMMAND ASSOCIATES A NUMBERIC VALUE WITH A VARIABLE NAME, THE 
SYNTAX OF THE SET COMMAND ISI SET VAaAE# WHERE VA IS A VARIABLE AND 
AE IS AN ARITHMETIC EXPRESSION; E.G,, A CONSTANT# VARIABLE, OR FUNCTION, 
EXAMPLE! 


•SET A » 3.02! SET B » 8,17! SET C(13) • -427! TYPE S 
A • 3,02000 

B " 6,17000 

C (13)■ -427,00000 
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* % 


0, arithmetic operations and priorities 


♦ ADDITION 

• subtraction 

* MULTIPLICATION 
/ DIVISION 

a EXPONENTIATION 


THE ORDER OP PRIORITY OP ARITHMETIC OPERATIONS ISI 

1) exponentiation „ _ 

2) MULTIPLICATION and DIVISION (EQUAL PRIORITY) 

3) ADDITION AND SUBTRACTION (EQUAL PRIORITY) 


EVALUATION PROCEEDS PROM LEFT TO RIGHT ACCORDING TO THE ABOVE 
PRIORITIES# RESPECTING THE ASSOCIATIONS OP PARENTHESES, 


THUS, THE EXPRESSION, 5.2*(3,7/2.2a4-8,09/(F3QT(4,8)#7)) 
IS EVALUATED AS FOLLOWS! 

5.2 * (3.7 / 2.2 a 4 • 8.09 / (PSQTU.8 ) * 7)) 

9 9 9/ 

9 9 9a/ 

9 9 23.4256 

9 9 / / 

9 9 / 

9 0.15799 8.09 2.19089 7 

9 9 9 9 / 

9 9 9 9 / 

09 9 9*/ 

99 9 15.3362 

9 9 9 / 

9 9 9 / 

9 9 9 / 

9 9 9 / / 

9 9 9 / 

9 9 0.52751 

9 9 / 

9 9 / 

9 9/ 

9 9 / 

9 9»/ 

9 •0.36956 

9 / 


9 / 

9*/ 

-1.92172 




IN THE DIAGRAM ABOVE, THE LINES GOING DOWN TO THE RIGHT TRACE THE 

first values to be used by the arithmetic operators e*,*,*,/,A)f the 

LINES GOING DOWN TO THE LEFT TRACE THE SECOND ARGUMENT OF THE OPERATORS. 
WHEN THE TWO LINES MEET, THE OPERATION SPECIFIED BY THE OPERATOR 
LISTED ABOVE THEIR INTERSECTION IS EXECUTED AND THE RESULT TYPED 
AT THE POINT OF THEIR INTERSECTION. 


SEE THE APPENDICES FOR A DESCRIPTION OF THE AVAILABLE FUNCTIONS. 
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0* JNPUT/OUTPUT COMMANDS! ASK, TYPE 
ASK 


THE ASK COMMAND IS THE INPUT COMMAND OP THE POCARL LANGUAGE, IT 
ALLOWS THE USER TO ENTER NUMERICAL VALUES WHICH THE COMPUTER 
STORES AND REPERENCES AS NAMED VARIABLES. POCARL TYPES A »!» TO 
INDICATE THAT IT IS WAITING POR A NUMERICAL VALUE POR A VARIABLE TO BE 
ENTERED, THE USER MUST TYPE A DELIMITER CSEE NEXT PARAGRAPH POR ALLOW¬ 
ABLE DELIMITERS) FOLLOWING THE NUMBER, BEFORE POCARL WILL RECOGNIZE 
THE VALUE, THIS IS NECESSARY BECAUSE FOCARL DOES NOT USE FORMATTED 
INPUT, IP A MISTAKE IS MADE IN TYPING IN AN INPUT VALUE AND A DELIMITER 
HAS NOT BEEN TYPED, THE ERROR CAN BE CORRECTED BY I 

*C* STRIKING THE RUBOUT KEY WILL DELETE ONE CHARACTER POR EACH TIME IT 

*C* IS depressed* UP TO THE "I", 

TYPING A BACKARROW (SHIFT 0) DELETES THE ENTIRE RESPONSE AND ALLOWS THE 
USER TO TYPE IN THE CORRECT VALUE, HITTING THE ALTMODE KEY IN RESPONSE 
TO THE ASK STATEMENT'S "I" INSTRUCTS POCARL TO RETAIN THE FORMER 
VALUE Op THE VARIABLE* INSTEAD OP ACCEPTING AN INPUT VALUE. 

THE FOLLOWING CHARACTERS MAY BE USED AS DELIMITERS FOLLOWING A VALUE 
INPUT IN RESPONSE TO AN ASK COMMAND! 

COMMA, COLON, SEMI-COLON, CARRIAGE RETURN, OR A SPACE 

ANY OF THE DELIMITERS* EXCEPT A SPACE, MAY BE USED WITHOUT TYPING 
IN A VALUE TO SPECIFY A VALUE OP ZERO FOR THE VARIABLE. A SPACE MUST 
BE PRECEOED BY A VALUE, A MINUS SIGN OR A DECIMAL POINT BEFORE IT WILL 

SERVE AS a delimiter. 


TYPE 

THE TYPE COMMAND IS POCARL»S OUTPUT COMMAND. IT IS USED TO PRINT OUT 
THE RESULTS OP THE COMPUTER'S CALCULATIONS 80 THEY CAN BE SEEN AND 

interpreted BY the user. 

EXAMPLESI 

* 

•SET B*6 

•ask »what are the values opm,tat,i,?bt,i,tct,i 

WHAT ARE THE VALUES OF 

AI-8 SPACE USED AS DELIMITER 

8 ! ALTMOOI 

CI7.02 COMMA USED AS DELIMITER 
•TYPE %4.04,A,B,C,l 
-2,000 6,000 7,020 
* 

•TYPE X4,360,1,1130*1*1401,1,1020,i 
360 
1130 

1401 NOTE THAT MULTIPLE ITEMS CAN BE OUTPUT IN ONE TYPE OR ASK 

1620 COMMAND SO LONG AS THE ITEMS ARE SEPARATED BY COMMAS. 

• 
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10. NUMERIC FORMATTING IN THe TYPE STATEMENT 

THERE ARE THREE TYPES OF NUMERIC FORMATTING AVAILABLE IN FOCARLI 
INTEGER. FLOATING-POINT OR DECIMAL. AND EXPONENTIAL OR E FORMAT. 

THE FORMAT XS SPECIFIED BY USING THE % OPTION. 

XB YIELDS B-PLACe INTEGER OUTPUT! 

XA.BC YIELDS A-PLACE OUTPUT WITH UP TO BC DIGITS TO THE RIGHT OF 
THE DECIMAL POINT! 

X YIELDS EXPONENTIAL FORMAT! A SIX-PLACE DECIMAL FOLLOWED 

BY THE LETTER E. FOLLOWED BY THE POWER OF 10 WHICH THE 
DECIMAL IS TO BE MULTIPLIED BY TO YIELD THE CORRECT VALUE. 

THE ARGUMENT OF THE X OPTION MAY BE AN ARITHMETIC EXPRESSION. 

IF A NUMBER CONTAINS MORE SIGNIFICANT DIGITS TO THE LEFT OF THE DECIMAL 

point than is allowed for by the integer or floating-point format, that 

NUMBER will BE OUTPUT UNDER A MODIFIED E-FORMAT I ONLY THE NUMBER OF 
SIGNIFICANT DIGITS (UP TO 0) GIVEN IN THE SPECIFIED FORMAT ARE RETAINED 
IN THE DECIMAL PART OF THE E-FORMATTED NUMBER, ^ 

IF A NUMBER CONTAINS MORE SIGNIFICANT DIGITS TO THE RIGHT OF THE DECIMAL 
THAN IS ALLOWED UNDER THE OUTPUT FORMAT, THE NUMBER WILL BE ROUNDED TO 
FIT THE SPECIFIED FORMAT. 

ONCE A FORMAT IS SPECIFIED, OUTPUT WILL CONTINUE TO BE TYPED UNOER THIS 
FORMAT UNTIL ANOTHER FORMAT IS REQUESTED OR A DEFAULT CONDITION CAUSES 
OUTPUT TO BE TYPED IN E-NOTATION AS EXPLAINED ABOVE, 

THE THREE COMMANDS, ASK, SET, AND TYPE, FORM THE BASIS OF ANY PROGRAM. 
THEY PROVIDE THE ESSENTIAL TASKS OF INPUT, ASSIGNMENT, ANO OUTPUT, 
RESPECTIVELY. IN THE FOLLOWING EXAMPLE, THE GO COMMAND IS USED TO BEGIN 
EXECUTION OF AN INDIRECT PROGRAM. 

♦ 

•WRITE 
C FOCARL-14 

01,13 TYPE "THIS IS A DEMONSTRATION PROGRAM"! M 

01,18 ASK "WHAT IS THE VALUE OF A",A,i 

01.17 SET B«FSQT(A)!8ET C«A*A!SET DMaS 

01,19 TYPE « A SQ, RT. OF A Aa2 Aa3"» 

01,21 TYPE A," ",8," ",C," "»D, l 

• 

•GO 

THIS JS a DEMONSTRATION PROGRAM 
WHAT IS THE VALUE OF AS 13 

A SQ. RT. OF A Aa2 Aa3 

13,0000 3,60998 169,000 2197.00 

* 

* 
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11. ASCII FORMAT INPUT/OUTRUT 


EACH CHARACTER ON THE TTY KEYBOARD IS INTERPRETED AND STORED BY THE 
COMPUTER AS A NUMBER, THE CODE WHICH THE COMPUTER USES IS CALLED 
ASCII' THE UNITED STATES OF AMERICA STANDARD CODE FOR INFORMATION 
INTERCHANGE# THIS COOE» OR A MORE COMPACT FORM OF IT, IS USED IN 
ALL INTER-MACHINE COMMUNICATIONS, THE XA FORMATTING OPTION IN FOCARL 
ALLOWS THE USER TO WORK WITH BOTH THE NUMERIC AND CHARACTER REPRE¬ 
SENTATIONS OF EACH CHARACTER, FOR A LIST OF THE CHARACTER SET AND 
THE NUMERIC COOES CORRESPONDING TO EACH CHARACTER, SEE THE APPENDICES, 

XA INPUT 

specifying ascii format in an ask statement results in two immediately 

NOTICEABLE CHANGESI THE IS NOT TYPED, AS IT IS UNDER A NUMERIC 
FORMAT, AND ONLY ONE CHARACTER IS ACCEPTED FOR EACH VARIABLE ASKED. 
WHEN A CHARACTER, FOR EXAMPLE, A, IS TYPED IN RESPONSE TO AN ASK 
STATEMENT, THE NUMERIC VALUE OF A, 103, IS STORED AS THE VARIABLE. 

XA OUTPUT 


WHEN XA IS SPECIFIED IN A TYPE STATEMENT, THE COMPUTER WILL TYPE OUT 
ALL VALUES AS THEIR CHARACTER COUNTERPARTS, IF THEY ARE DEFINED, 

FOCARL TRIES TO FIND A CHARACTER COUNTERPART FOR THE INTEGER PART OF 

the numeric value, the integers from 12s to 299 have direct character 

CODES IN FOCARL, ALTHOUGH SOME ARE NON-PRINTING, THE SAME CHARACTER 
WILL BE PRODUCED BY ANY NUMBER WHICH DIFFERS FROM THE OIRECT-COOED 
NUMBER BY AN INTgSIR MULTIPLE OP 188. FOR EXAMPLE, THE DIRECT CODE FOR 
A IS 103, THE NUMBERS 69, 321, 440, 3000, AND -3007 WILL ALSO PRODUCE 
THE LETTER «A« WHIN OUTPUT UNDER XA FORMAT, 


♦NOTE* 

JUST AS WITH ANY NUMERIC FORMAT, ALL INPUT AND OUTPUT WILL BE HANDLED 
UNDER this format until another FORMAT S3 SPECIFIED. 


EVALUATION OF ALPHABETIC RESPONSES TO INPUT 

FOCARL WILL ACCEPT AND EVALUATE ALFHA8ETIC CHARACTER STRINGS TYFED IN 
RESPONSE TO A NUMERICALLY FORMATTED ASK STATEMENT, THE VALUES ASCRIBED 
TO THE LETTERS CIXCSPT g5 §gRRgSF9ND T9 THEIR POSITION IN THE ALPHABET, 
I.B., AbI, 632, Jag8, Malic ETC, E DENOTES EXPONENT, OR POWER OF 10, 

WHEN E 18 THE FIRST CHARACTER OF A STRING TYPEO IN RESPONSE TO AN 
INPUT REQUEST, THE VALUE OF THE STRING IS ZERO. IF E IS THE LAST CHAR- 
ACT6R OF THE STRING, A DELIMITER OTHER THAN A SPACE MUST BE USED, AND THE 
POWER OF 10 IS ASSUMED 70 BE 0, IF THE NUMBER CORRESPONDING TO A LETTER 
IS GREATER THAN THE TEN * I DIGIT WILL BE CARRIED IF THAT CHARACTER 18 
FART OF A STRINio A g@MF>LE?g LIST OP THE NUMERIC VALUES OF THE 
CHARACTERS IS GIVgN IN TNI APPENDICES, 
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12. OPTIONS IN BOTH THE ASK AND TYPE COMMANDS 
QUOTE 

A CHARACTER STRING ENCLOSED IN QUOTATION MARKS WILL BE REPRODUCED 
VERBATIM WHEN THAT STATEMENT IS EXECUTED. aQ (BELL) WILL RINQ 
THE BELL, 

EXCLAMATION POINT 

AN EXCLAMATION POINT AS AN ARGUMENT OP A TYPE OR ASK STATEMENT WILL 
CAUSE FOCARL TO GENERATE A CARRIAGE RETURN/LINE PEED COMBINATION, 

NUMBER SIGN (*) 

# AS AN ARGUMENT OP AN I/O COMMAND WILL GENERATE A CARRIAGE RETURN 
WITHOUT A LINE PEED. 

DOLLAR SIGN CS) 

THE S OPTION WILL GENERATE A PRINT-OUT OP THE SYMBOL TABLE, A 
LIST OP ALL OP THE OEPINED VARIABLES AND THEIR CURRENT VALUES, 

IT MAY BE USED IN AN INDIRECTLY PROGRAMMED STATEMENT I HOWEVER, 

THERE IS USUALLY LITTLE REASON TO 00 SO. 

*F* IP I/O WAS TO DISK (DATA PILE) IT IS CHANGED TO TELETYPE, 

QUESTION MARK CT) 

A VARIABLE NAME ENCLOSED IN t'S IN AN I/O STATEMENT WILL BE TYPED 
OUT, THE ASK STATEMENT WILL TYPE A COLON AFTER THE VARIABLE NAME, AMD 
THEN WAIT FOR THE USER TO TYPE IN THE VALUE; THE TYPE STATEMENT WILL 
FOLLOW THE VARIABLE NAME WITH ITS CURRENT VALUE. MULTIPLE VARIABLES 
CAN BE INCLUDED IN THE SAME SET OP T'S, AS LONG AS THEY ARE SEPARATED 
BY SPACES OR COMMAS. IN THIS INSTANCE, FOCARL WILL TYPE BOTH THE VARI¬ 
ABLE NAME AND THE DELIMITER BEFORE TYPING THE VALUE (TYPE) OR 8 (ASK). 

NOTEI COMMAS SEPARATING QUOTES, I'S AND M'S PROM ONE ANOTHER MAY §£ \ 

OMITTED. ^ 


13. TRACING 

POCARL PROVIDES AN OPTION TO ALLOW THE USER TO TRACE THE EXECUTION 
OP HI8 PROGRAM. WHEN A T IS ENCOUNTERED, EXCEPT IN A COMMENT LINE m 
WITHIN A QUOTE IN AN INPUT/OUTPUT STATEMENT, FOCARL ENABLES THE TRACI 
FEATURE, TRACE REMAINS ENABLED UNTIL ANOTHER ? IS ENCOUNTERED, IACM 
"ODD-NUMBERED" 1 ENABLES TRACE, WHILE EACH "EVEN-NUMBERED" 

OCCURRANCE DISABLES TRACE, 

WHEN ENABLEO, TRACE BEGINS TYPING EVERY CHARACTER THAT POCARL 
ENCOUNTERS AS IT EXECUTES THE PROGRAM, 

THE 1 WILL BE RECOGNIZEO WHEREVER IT APPEARS IN A COMMAND STATEMENT. 
IT CAN BE IMBEDDED IN A LINE NUMBER OR A VARIABLE NAME, OR BEFORE, 
POLLOWING, OR EVEN WITHIN A COMMAND, 

AN EXAMPLE OP A PROGRAM TRACE IS GIVEN IN THE APPENDICES, 
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U. COMMENT 


THE COMMENT COMMAND 13 USED TO INCLUDE COMMENTS IN A PROGRAM LISTING, 
ONCE A COMMENT COMMAND IS ENCOUNTERED* THE REMAINDER OP THE LINE IS 
ASSUMED PART OP THE COMMENT. THUS, COMMENT SHOULD BE THE LAST 
COMMAND TQ APPEAR IN A LINE, SINCE COMMANDS POLLOWZNG IT ON THE 
SAME LINE WONIT BE EXECUTED. 
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15. *C* THE SCOPE A3 AN OUTPUT DEVICE 
OPTION SCOPE AND ERASE SCOPE COMMANDS 

there are two output devices available on three op the pour s/l»si 

the TELETYPE PRINTER ANO CRT DISPLAY ("SCOPE"), OUTPUTTXNO ONTO THE 
SCOPE Has THE ADVANTAGE op BEING BOTH PASTER AND QUIETER THAN TTY OUT¬ 
PUT. POR THESE REASONS. MUCH OP THE PROGRAMMING AND DEBUGGING DONE 
IN COLPAC I* DONE USING SCOPE OUTPUT. 

UPON ENTERING COLPAC, TELETYPE OUTPUT IS ASSUMED. TO TRAN8PER OUTPUT 
TO THE SCOPE, THE COMMAND OPTION SCOPE IS USED. COLPAC THEN TRAN8PER8 
ALL OUTPUT, INCLUDING CHARACTER ECHO, TO THE SCOPE, C0LPAC8 ASTERISK IS 
PRINTED AT THE LEPT MARGIN OP THE SCREEN, 

THE ERASE SCOPE COMMAND IS USED TO CLEAR THE DISPLAY PACE AND RESET 
THE ASTERISK TO THE TOP OP THE SCREEN, THE ERASE SCOPE COMMAND DOES NOT 
APPECT THE PROGRAM OR SYMBOL TABLE STORED IN CORE, AND IT HAY BE PRO¬ 
GRAMMED INDIRECTLY, 

scope information and scale size 

the G/L SCOPE IS LABELLED WITH A CARTESIAN COORDINATE SYSTEM IN TWO 
DIMENSIONS, THE X COORDINATE AXIS (HORIZONTAL) IS 600 UNITS LONG, PROM 
»900 TO 300* THE Y AXIS (VERTICAL) IS 760 UNITS LONG, PROM -380 TO 380. 
THE CENTER OP THE SCOPE PACE IS THE ORIGIN, WITH COORDINATES (0,0). 

THE SCOPE ON THE S/L'S IS A "WRAP-AROUND" SCOPE, WHICH MEANS THAT A 
LINE WHICH GOES OPP THE SCOPE ON ONE SIDE WILL RETURN ON THE OTHER SIDE, 
THE WRAP-AROUND LENGTH IN THE X-OIRECTION IS APPROXIMATELY 720 UNITS* 

IN THE Y°OIRECT!ON, ABOUT 630 UNITS. THE POINT (743,26), POR EXAMPLE, 
WOULD BE PLOTTED AT APPROXIMATELY (-280,23), 

SCALE SIZE 

WHEN PRINTING CHARACTERS OR TEXT STRINGS ON THE SCOPE, IT IS SOMETIMES 
DiSlREABLE TO HAVE THEM ENLARGED POR EASE IN READING. THE I OPTION OP 
TM| TYPE OR ASK COMMAND IS USED TO CHANGE THE SCALE SIZE, THE PORMAT 

of the command is simplyi 

TYPE IE E BEING A NONNEGATIVE NUMBER, THE INTEGER PORTION OP 

WHICH IS TAKEN TO BE THE ENLARGEMENT PACTOR, 

AN ENLARGEMENT PACTOR OP 0 OR 1 DENOTES NORMAL MAGNIPICATION, 2 DENOTES 
TWieg the SIZE, 3, TREBLE THE SIZE, ETC. AN ENLARGEMENT PACTOR OP 
1024 PRODUCES A ZERO MAGNIPICATION, THE CHARACTERS BEING PRINTED AS A 
SINGLE POINT* 1023 IS NORMAL MAGNIPICATION, BUT UPSIDE DOWN, 1022 
TWIQg THE SIZE AND INVERTED, ETC, ONCE A SCALE SIZE HAS BEEN SPECIPIED, 
IT WJLL CONTINUE UNTIL ANOTHER SIZE IS REQUESTED. TELEPRINTER OUTPUT 
AND COORDINATE plotting are not appected by a change in scale size, 

E HAY BE AN ARITHMETIC EXPRESSION, IN WHICH CASE ITS VALUE IS 
TRUNCATED TO DETERMINE THE MAGNIPICATION, 



16 , *C* PLOTTING ON THE CRT DISPLAY, THE "SCOPE" 

COLPAC ALLOTS THE USER TO PLOT GRAPHS AND DIAGRAMS ON THE SCOPE BY 
SPECIFYING THE COORDINATES OF THE POINTS TO BE PLOTTEO. THE COORDINATE 
VALUES# DENOTED BELOW AS X,Y AND A,B, MAY BE ARITHMETIC EXPRESSIONS, 

TO PLOT A POINT ON THE SCOPE, THE COMMAND PLOT X,Y IS USED, WHERE X IS 
AN ARITHMETIC EXPRESSION FOR THE X COORDINATE OF THE POINT, AND Y IS AN 
ARITHMETIC EXPRESSION FOR THE Y COORDINATE OF THE POINT, 

TO MAKE THE POINTS PLOTTED EASIER TO SEE, THE USER MAY WANT TO ORAN A 
CHARACTER, OFTEN AN «*", AT THE POINT PLOTTED, TO DO THIS, THE COMMAND 
PLOT X,Y,"TEXT” IS USED. THIS COMMAND WILL PRINT THE TEXT STRING ENCLOSEO 
IN quotes beginning AT POINT (X, Y) AND EXTENDING TO THE RIGHT, UNLESS 
THE & OPTION IS USED TO INVERT PRINTING - THEN IT IS WRITTEN TO THE LEFT. 

THE COMMAND PLOT *,X,Y ALLOWS THE USER TO DRAW LINE SEGMENTS ON THE 
.SCOPE, IT QRAW8 A LINE SEGMENT CONNECTING THE LAST POINT PLOTTED AND 
THE POINT CX,Y), TO DRAW AN ISOLATED LINE SEGMENT, THE USER WOULD 
USE THE TWO COMMANDS PLOT A,B' PLOT *,X,Y , THIS WOULD DRAW A LINE 
SEGMENT FROM POINT (A,S) TO POINT (X,Y), TO DRAW A SERIES OF CONNECTED 
line SEGMENTS, for EXAMPLE, IN a LINE GRAPH, THE USER WOULD PLOT THE 
INITIAL POINT USING A plot X,Y COMMAND, EACH SUBSEQUENT POINT WOULD BE 
PLOTTED USING A PLOT *,X,Y COMMAND, 

PLOT X,X,Y IS USED TO DRAW A CIRCLE ON THE SCOPE. THE CIRCLE IS CENTEREO 
AT THE POINT CX,Y) AND THE LAST PREVIOUSLY PLOTTEO POINT IS ASSUMED TO BE 
ON THE CIRCUMFERENCE, THUS, TO DRAW A CIRCLE CENTEREO AT THE ORIGIN ANO 
HAVING A RADIUS OF 25, THE USER MIGHT SAY I *PLOT 0,25' PLOT X,0,0 

TO DRAW AN ARC, THE COLPAC COMMAND PLOT *,X,Y,D IS USED, WHERE THE POINT 
(X,Y) IS THE CENTER OF CURVATURE OF THE ARC, AND D DENOTES THE LENGTH 
OF THE ARC (IN DEGREES), THE ARC IS PLOTTED IN A CLOCKWISE DIRECTION, 
BEGINNING AT THE LAST PREVIOULY PLOTTED POINT. 

ALL OF THE PLOT COMMAN0S ALLOW FOR TEXT OUTPUT FOLLOWING THE ARGUMENTS 
THE PLOT COMMAND. CHARACTER STRINGS ENCLOSED IN QUOTATION MARKS 
WILL BE WRITTEN VERBATIM, BEGINNING AT THE POINT SPECIFIED IN THE PLOT 
COMMAND. THE VALUES OF VARIABLES MAY BE PRINTED, ANO THE 1 CCR/LF) 

AND # (CR) OPTIONS ARE ALSO ALLOWED, NUMERIC FORMATS CANNOT BE CHANGED 

WITHIN a plot statement. 

WHEN TRYING TO PLOT A THREE-DIMENSIONAL OBJECT IN TWO DIMENSIONS, IT IS 
OFTEN NECESSARY TO HIOE LINES, THIS CAN BE DONE USING THE COMMANO 
PLOT X,Y, WHERE NO TEXT STRING FOLLOWS THE COMMA AFTER THE Y. COLPAC 
WILL NOT PLOT ANYTHING AT THE POINT CX,Y), BUT WILL CONSIDER IT TO BE 
THE LAST POINT PLOTTED, SUBSEQUENT PLOT COMMANDS MAY REFERENCE THIS 
POINT FOR DRAWING LINE SEGMENTS, CIRCLES, OR ARCS, EVEN THOUGH IT DOESN’T 

appear ON the scope FACE. 
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17, *C* JOYSTICK 

ON THE 0/L»S WITH CRT DISPLAYS, THE USER WILL FIND AN INSTRUMENT 
CALLED A JOYSTICK. IT IS A SINGLE, OMNIDIRECTIONAL CONTROL USED TO GUIDE 
A DOT OF LIGHT, THE CURSOR, ACROSS THE SCOPE FACE, ACROSS THE END OF 
THE JOYSTICK CONTROL HOUSING IS AN ORANGE HINGED BAR LABELLED "INTERRUPT". 
THE INTERRUPT BAR MAY BE USED TO ENTER THE COORDINATES OF THE CURSOR 
AT THE TIME THE BAR IS PRESSED. 

the command TO enable THE JOYSTICK ISI 

JOYSTICK ALPHA,beta ALPHA AND BETA BEING any VARIABLES 

WHEN THE JOYSTICK COMMAND IS EXECUTED, THE CURSOR APPEARS ON THE SCOPE 
FACE IN A POSITION RELATIVE TO THE POSITION OF THE JOYSTICK. MOVING 
THE JOYSTICK WILL CAUSE THE CURSOR TO MOVE ACROSS THE FACE OF THE SCOPE. 

THE JOYSTICK WILL REMAIN ENABLED UNTIL THE INTERRUPT BAR IS PRESSED. 
PRESSING THE INTERRUPT BAR CAUSES THE COORDINATES OF THE CURSOR TO BE ^ 
STORED AS THE VARIABLES ALPHA AND BETA! ALPHA STORES THE X-COORDINATE, 

BETA STORES the y-cooroinate. 

THERE ARE TWO OTHER JOYSTICK COMMANDS IN COLPACl 
JOYSTICK *, X,Y AND JOYSTICK 

JOYSTICK *, X, Y OOES NOT WAIT FOR THE INTERRUPT BAR TO BE PRESSED, 

BUT STORES THE COORDINATES OF THE CURSOR AT THE MOMENT THE COMMAND IS 
EXECUTED. 

JOYSTICK IS A CONDITIONAL BRANCH STATEMENT. IT CHECKS THE INTERRUPT 
"FLAG" TO SEE IF THE INTERRUPT BAR HAS BEEN PRESSED SINCE THE LAST 
JOYSTICK COMMAND. IF IT HAS BEEN PRESSED, JOYSTICK CAUSES THE REMAINDER 
OF THE LINE TO BE EXECUTED, IF IT HAS NOT BEEN DEPRESSED, IT CAUSES 
EXECUTION TO CONTINUE WITH THE NEXT LINE. 
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16, GOTO COMMAND 


GOTO 13 AN UNCONDITIONAL BRANCH STATEMENT, WHENEVER A GOTO AB.CD 
COMMAND IS ENCOUNTERED# THE PROGRAM CONTINUES EXECUTION BEGINNING AT 
LINE AB.CD UNTIL THE END OP THE PROGRAM OR UNTIL PROGRAM EXECUTION 
IS TERMINATED BY ONE OP THE POLLOWINGl 

ERROR (ERROR MESSAGE IS TYPED) 

*P* LIBRARY CALL 

*C* library call executed INDIRECTLY IS EXACTLY LIKE A LIBRARY EXTEND 
*F* LIBRARY DELETE 
LOGOUT 
QUIT 

RETURN WITHOUT A CORRESPONDING DO COMMANO 
AC OR aBS PROGRAM INTERRUPT 
THE COMPUTER "CRASHES" 

AB.CD May be an arithmetic expression 80 LONG as a line with that number 
EXISTS IN THE PROGRAM* 


IB* IP COMMANDS 

THE IP STATEMENT IS CALLED A CONDITIONAL BRANCH STATEMENT, THAT IS* 
CERTAIN CONDITIONS (VALUES OP VARIABLES) MUST EXIST BEFORE 
IT WILL TRANSPER CONTROL (BRANCH) TO ANOTHER PART OP THE PROGRAM. 

THERE ARE TWO TYPES OP IP STATEMENTS IN POCARL* VALUATIONAL AND 
RELATIONAL. 

VALUATIONAL IP 

THE PORMAT OP THE VALUATIONAL IP STATEMENT ISl 
IF CAR) AB.CD* EP.GH, IJ.KL 

(AR IS AN ARITHMETIC EXPRESSION* AND AB.CD* EP.GH* AND IJ.KL ARE 
line NUMBERS.) The ip STATEMENT CHECKS POR THREE CONDITIONS! <0 , «0* 

>0 . ip the value op the arithmetic expression is negative, it 

BRANCHES TO LINE AB.CD) IP ZERO* TO LINE EP.GH) IP POSITIVE, 

TO LINE SJ 8 KL 

LESS THAN THREE ARGUMENTS CAN BE GIVEN FOLLOWING AN IP COMMAND. 

EXI 08,31 IP (A«0) 2,39) TYPE "Aofl»l 

IP A«0, ((A-6)«0), IT BRANCHES TO LINE 2.39) OTHERWISE, THE TYPE 
COMMANO WILL BE EXECUTED. 

EXi 04,30 l? (4?)) TYPE "HOWDY" 

THE TYPE COMMAND WILL ALWAYS BE EXECUTED* SINCE NO BRANCH IS 
INOICATED. 
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RELATIONAL. IF 

THE FORMAT OF THE RELATIONAL IF STATEMENT ISt 
IF (El*E2) I (COMMAND STRING) 

El AND E2 ARE ARITHMETIC EXPRESSIONS, AND P OENOTES ONE OF THE 
FOLLOWING RELATX0N3 BETWEEN THE VALUES OF THE TWO EXPRESSIONS! 

« LESS THAN » GREATER THAN * EQUAL TO « NOT EQUAL TO 
<• OR p« LESS THAN OR EQUAL TO «# OR M LESS THAN OR NOT EQUAL TO 

«» OR »i GREATER THAN OR EQUAL TO «» OR ># GREATER THAN OR NOT EQUAL TO 

«► OR »< LESS THAN OR GREATER THAN Cl.!,, NOT EQUAL TO) 

«#» OR «»# OR OR »#« OR »<» OR *«» LESS THAN OR GREATER THAN 

«■» OR ao OR O* OR ■»« OR »•< OR »«« LESS THAN OR EQUAL TO OR 

GREATER THAN (I.E., ALWAYS TRUE), 

THE RELATIONAL IF COMMAND EVALUATES THE TWO EXPRESSIONS AND 
THEN COMPARES THEM ACCORDING TO THE INDICATED RELATION, IF THE . 

STATEMENT IS TRUE, THE COMMAND STRING FOLLOWING THE SEMICOLON IS 
EXECUTED. IF THE STATEMENT IS NOT TRUE, EXECUTION CONTINUES WITH THE 
NEXT LINE OF THE PROGRAM. 

A DELIMITER (SEMICOLON OR SPACE) NEED NOT SEPARATE THE OUTSIDE RIGHT 
PARENTHESIS IN A RELATIONAL IF COMMAND FROM THE COMMAND STRING WHICH 
FOLLOWS, FOR EXAMPLE! 

* 

♦ IF (N8«0 )IF (N8a 2»4)TYPE NS,l 

■ 2,000 

♦ 

♦ASK X,X! IF (X«0HI)TYPE "HOWDY"l 

I HI 

HOWDY 

♦ 

♦ 

THE 0(ALPHABETIC STRING) OPTION OF EVALUATING ALPHABETIC RESPONSES TO 
AN INPUT REQUEST MAY Si USED IN AN IF STATEMENT, SEE LINE 4.1 OF THE 
EXAMPLE OF A PROGRAM TRACE IN THE APPEN0ICE8, £ 


20 , QUIT COMMAND 

THE QUIT COMMAND TERMINATES PROGRAM EXECUTION. 
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21. 00 AND RETURN 


THE 00 COMMAND 13 USED TO SUSPEND SEQUENTIAL EXECUTION OF COMMANDS, 
EXECUTE INTERVENXNQ COMMANDS, AND THEN CONTINUE EXECUTION AT THE POINT 
SUSPENDED. THE INTERVENING COMMANDS CAN BE A SINGLE LINE OR AN ENTIRE 
GROUP AS SPECIFIED BY THE ARGUMENT OF THE DO COMMAND. THE DO COMMAND 
WITHOUT AN ARGUMENT* USED AS A DIRECT COMMAND, WILL BE INTERPRETED AS A 
DO ALL COMMAND BY POCARL. THIS COMMAND CAUSES EXECUTION TO BEGIN AT THE 
SMALLEST LINE NUMBER JUST LIKE THE GO COMMAND. 


THE USER MAY INCLUDE ARITHMETIC EXPRESSIONS AS ARGUMENTS OF DO COMMANDS, 
SO LONG AS THE LINE OR GROUP NUMBERS REFERENCED EXIST IN THE PROGRAM. 

DO N (N HAS A VALUE WHICH CORRESPONDS TO A GROUP NUMBER) 

THIS COMMAND WILL BEGIN EXECUTION OF GROUP N AT THE LOWEST LINE NUMBER 
AND WILL PROCEED THROUGH THE GROUP SEQUENTIALLY, WITH THE FOLLOWING 
EXCEPTIONS! 

C i> A BRANCH STATEMENT TO A NON-SEQUENTIAL LINE WITHIN THE GROUP WILL BE 
~ EXECUTED NORMALLY, ALTERING SEQUENTIAL EXECUTION, 

2) A DO N.AB TO A LINE WITHIN GROUP N WILL BE EXECUTED CORRECTLY. 

3) A BRANCH COMMAND TO A LINE OUTSIDE THE GROUP WILL RESULT IN FOCARL 
EXECUTING ONLY THAT LINE, BEFORE RETURNING TO THE NEXT LINE IN GROUP 
N AND CONTINUING EXECUTION THERE. HOWEVER, IF THE LINE BRANCHED TO 
CONTAINS A DO OR A GOTO COMMAND, THAT COMMAND WILL BE EXECUTED BEFORE 
FOCARL RETURNS TO GROUP N. THIS "CHAINING" EFFECT CAN CONTINUE TO 
multiple LEVELS, THE DO WILL EXECUTE ONLY ONE LINE WHEN A BRANCH 
COMMAND DIRECTS XT OUTSIDE THE GROUP SPECIFIED, BUT THAT LINE WILL BE 
EXECUTED COMPLETELY BEFORE RETURNING TO THE DO GROUP, GROUP N. 


« 


DO L.AB CL,AS IS A LINE NUMBER) 

THIS COMMANO CAUSES THE LINE L.AB TO BE EXECUTED. IF LINE L.AB CONTAINS 
A DO STATEMENT, THIS WILL BE EXECUTED COMPLETELY BEFORE RETURNING TO 
LINE L.AB. IF LINE L.AB CONTAINS A BRANCH STATEMENT, ONLY THE LINE 
specified BY THE BRANCH COMMAND WILL BE EXECUTED. IF, HOWEVER, THIS 
LINE CONTAINS a DO OR BRANCH COMMAND, IT WILL ALSO BE EXECUTED BEFORE 
CONTROL RETURNS TO LINE L.AB. 

THE DO COMMAND CAN ALSO BE USED TO 00 RECURSION BY INCLUDING A DO N 
COMMAND INTERNAL TO GROUP N. FOR EXAMPLE, THE PROGRAM LINE! 


02,20 IF (BCM-AL) 3,1,2.27)00 2 


RETURN 

THE RETURN COMMAND IS USED IN CONJUNCTION WITH A DO STATEMENT. A RETURN 
COMMAND SIGNALS THE END OF EXECUTION OF A DO COMMAND. EXECUTION 
CONTINUES WITH THE NEXT SEQUENTIAL COMMAND, OR, IF THE DO WAS NESTED 
INTERNAL TO ANOTHER DO COMMAND OR FOR ITERATION, EXECUTION CONTINUES 
AS THEY DIRECT, 

A RETURN COMMAND, IF ENCOUNTERED WHILE NOT EXECUTING A DO COMMAND, 

WILL FUNCTION AS A QUIT COMMAND, TERMINATING PROGRAM EXECUTION, 
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22, FOR AND BREAK 

the for command is used to perform iterations, the syntax of a for 

COMMAND IS! 

FOR VAiVI,VF#IN* (VI* VP. IN CAN BE ARITHMETIC EXPRESSIONS) 


WHEN THE FOR COMMAND 19 EXECUTED# THE VARIABLE# DENOTED VA* IS JET 
EQUAL TO THE INITIAL VALUE, VI. WITH V A »VI , ^ T HE COMM A NCJ ST RI NO FOLLO^ 1 NO 
THE "*" IS EXECUTED. THEN THE INCREMENT, IN# IS ADDED TO VA ANO THIS 
VALUE IS CHECKED AGAINST THE FINAL VALUE# VF, 

IF VA«VF AND THE INCREMENT IS NEGATIVE, FOCARL CONTINUES EXECUTION 

WITH the next program line. ^ 

IF Va»VF AND THE INCREMENT IS NEGATIVE, THE COMMAND STRING IS 
EXECUTED AGAIN# THE INCREMENT ADDED TO VA AND ITS VALUE CHECKEO 
AGAIN. THIS CYCLE CONTINUES UNTIL* 

VAiVF, WHEN THE COMMAND STRING IS EXECUTED ONCE MORE BEFORE 
continuing execution with THE next LINE* OR# 

VA«VF, which CONTINUES EXECUTION WITH the LINE FOLLOWING THE FOR 
COMMAND# UNLESS THE FOR COMMAND WAS NESTED WITHIN ANOTHER FOR 
STATEMENT, 

IF VA«VF AND THE INCREMENT IS POSITIVE# THE COMMAND STRING IS 
EXECUTED* VA IS INCREMENTED BY IN# AND ITS VALUE AGAIN COMPARED WITH 
VF. THIS CYCLE CONTINUES UNTIL VA>VF, THEN EXECUTION IS DIRECTED TO 
THE NEXT SEQUENTIAL LINE# UNLESS THE FOR LOOP JUST COMPLETED WAS 
NESTED WITHIN ANOTHER FOR LOOP, 


WITH NESTED FOR LOOPS# THE COMPLETION OF THE ITERATIONS OF THE INNER 
FOR LOOP IS THE COMPLETION OF ONLY ONE EXECUTION OP THE COMMAND 
STRING OF THE OUTER FOR LOOP. THUS, THE INNER FOR STATEMENT WILL 
BE DIRECTED THROUGH ALL OF ITS ITERATIONS FOR EACH ITERATION OF THE 
OUTER LOOP, thus, THE STATEMENT* 

FOR 1*1,4,i*FQR J"1,3,1*TYPE 


WILL CAUSE THE TYPE COMMAND TO BE EXECTUTED 12 TIMES. 

IF NO INCREMENT IS SPECIFIED IN THE FOR STATEMENT, FOCARL ASSUMES AN 
INCREMENT OF l. THUS, THE STATEMENT COULD HAVE BEEN WRITTEN* 




FOR m # 4*PQR J*l#3*TYPE «*" 


BREAK 

the break COMMAND IS USED TO EXIT EARLY FROM A FOR LOOP, A BREAK 
COMMAND ENCOUNTERED WITHIN NESTED FOR LOOPS WILL CAUSE EXIT FROM 
ONLY THE MOST INTERNAL LOOP. FOR A SAMPLE PROGRAM ILLUSTRATING THE 

break command# see the appendices. 
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23. TEXT EDITING COMMANDS: WRITE. ERASE, MODIFY 
WHITE 

THE WRITE COMMAND IS USED FOR LISTING OUT THE USER»S PROGRAM. THERE 

are three options to the write commandi * 

WRITE AB.CD PRINTS OUT LINE AB.CD (IF IT EXISTS) 

WRITE 8 PRINTS OUT ALL OF GROUP B (IF IT EXISTS) 

WRITE OR WRITE ALL LISTS OUT THE ENTIRE PROGRAM 

THE WRITE COMMAND CAN 8E USED EITHER AS A DIRECT OR AN INDIRECT COMMANO, 
BUT THERE IS LITTLE REASON TO USE IT AS AN INDIRECT COMMANO. 

NO ERROR OCCURS IF THE LINE OR GROUP IS NOT FOUND (I.E., DOES NOT 
EXIST). 

ERASE 

THE ERASE COMMANO IS USED TO DELETE INFORMATION. 

THERE ARE FIVE OPTIONS TO THE ERASE COMMANO* 

ERASE AB.CD DELETES LINE AB.CD FROM YOUR PROGRAM (IF IT EXISTED) 
ERASE B DELETES ALL OF GROUP B (IF IT EXISTED) 

ERASE ERASES THE SYMBOL TABLE (I.E., SETS ALL VARIABLES-B) 

ERASE ALL ERASES ENTIRE PROGRAM, SYMBOL TABLE, AND SCOPE 
*C* ERASE SCOPE ERASES SCOPE — IGNORED BY FOCARL 

the'optiqns, ERASE AND ERASE SCOPE, ARE THE ONLY ONES WHICH CAN BE 
PROGRAMMED INDIRECTLY. ERASE IS OFTEN INCLUDED AT THE BEGINNING OF A 
PROGRAM, BEFORE ANY VARIABLES HAVE BEEN DEFINED, TO SET ALL VARIABLES 
TO ZERO, ELIMINATING ANY "CARRY-OVER" FROM THE PREVIOUS PROGRAM, 

NO ERROR OCCURS IF THE LINE OR GROUP SPECIFIED IS NOT FOUND IN ERASE 
TEXT COMMANDS. 

MODIFY 

4 THE MODIFY COMMAND IS USED FOR CORRECTING A PROGRAM LINE WITHOUT 
MAKING THE USER RETYPE THE ENTIRE LINE, THE MODIFY COMMAND CANNOT 
BE PROGRAMMED INDIRECTLY, SINCE IT NECESSITATES SUPERVISORY INTERACTION 
BY THE USER. THE FORMAT OF THE MODIFY STATEMENT IS* 

MODIFY AB.CD 

WHERE AB.CD IS THE NUMBER OF THE LINE TO BE MODIFIED. FOCARL WAITS 
FOR THE USER TO TYPE IN THE CHARACTER HE WANTS TO SEARCH THE LINE FOR, 

IT WILL TYPE OUT THE LINE UNTIL IT FINDS THE SEARCH CHARACTER. IF IT 
D0E8NiT FIND IT, IT WILL TYPE OUT THE ENTIRE LINE, ONCE IT FINDS THE 
SEARCH CHARACTER, IT WILL WAIT FOR THE USER TO PERFORM ONE OF THE 
FOLLOWING OPTIONS* 

t) TO TYPE IN NEW TEXT FOLLOWING THE SEARCH CHARACTER 

2) HIT THE RUBOUT KEY TO DELETE THE LAST CHARACTER TYPED 

3) TYPE BACKRROW (SHIFT 0) TO DELETE THAT PART OF THE LINE THAT HAS 
BEEN TYPED OUT, THIS DOES NOT DELETE THE LINE NUMBER, 

A) HIT THE RETURN KEY TO TERMINATE THE LINE AT THE SEARCH 
CHARACTER, DELETING THE REMAINDER OF THE LINE 
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5) 

6 ) 
7 ) 


TYPE FORM-FEED CaLI CTRL L) TO CONTINUE TYPING OUT THE LINE UNTIL 
ANOTHER OCCURRENCE of THE SEARCH CHARACTER 

TYPE BELL (AG) TO CHANGE SEARCH CHARACTER, AND THEN TYPE THE NEW 


SEARCH CHARACTER 
TYPE LINE FEED TO SAVE 


THE REMAINDER OF THE LINE 


•F* THE MODIFY COMMAND RETURNS TEXT I/O TO THE TELETYPE. 


24. LIBRARY COMMANDS 

DISK STORAGE OF USER PROGRAMS 

FOR MOST PURPOSES, DISK STORAGE IS TO BE TREATED AS ONLY TEMPORARY 
STORAGE. THIS IS A RESULT OF TWO FACTORS* THE LARGE NUMBER OF SYSTEM 
AND DEPARTMENT FILES WHICH ARE PERMANENTLY 8T0RED ON DISK* AND THE UN¬ 
PREDICTABILITY OF THE COMPUTER. THE FIRST FACTOR MEANS THAT THERE ARE 
FEWER AVAILABLE DISK SEGMENTS FOR USER PROGRAMS, WHICH NECESSITATES 
A PRIORITY RANKING OF USER PROGRAMS STORED ON THE SYSTEM, AND PERIODIC 
PURGING OF OLD AND LOW PRIORITY FILES. 

THE SECOND FACTOR MUST BE CONSIDERED AS ONE OF THE HAZARDS OF USING 
A COMPUTER. THE DISK, THE FASTEST MEDIUM OF EXTERNAL --^2 AL8 ° 

THE MOST VULNERABLE. INFORMATION STORED ON IT CAN BE LOST IF THE 
SYSTEM CRASHES, THEREFORE, IF YOU WANT TO SAVE A PROGRAM FOR LATER 
USE, MAKE A PAPER TAPE COPY OF IT. 


FOCARL LIBRARY COMMANDS 

THE LIBRARY COMMANDS IN FOCARL ARE USED TO REFERENCE DISK FILES. 

EACH DISK FILE HAS A NAME AND AN EXTENSION ANO RESIDES ON A 
PARTICULAR SECTION OF DISK, DISTINGUISHED BY AN ACCOUNT NUMBER. 

THI FILE NAME IS FROM ONE TO SIX ALPHANUMERIC CHARACTERS. 

oFo FOCARL APPENDS AN EXTENSION OF ,FRL TO FILES IT CREATES WHEN 

STORING PROGRAMS ON DISK. DATA FILES ARE GIVEN .DAT EXTENSIONS. M 
COLPAC APPENOS AN EXTENSION OF ,COL TO FILES IT CREATES. 

THE SYNTAX OF A LIBRARY COMMAND IS* 

L 38UB°CQMMAND> <FILE NAME* (ACCT #1 
THE t AND 1 DESIGNATE OPTIONAL PARAMETERS, 

*F* FOCARL ALLOWS THE USER TO SPECIFY A LINE NUMBER FOLLOWING THE 

ACCOUNT NUMBER, IT MAY BE AN ARITHMETIC EXPRESSION ANO IS PRECEDED 
*Fs> BY AN »L". IT HAS MEANING IN THE LIBRARY EXTEND COMMAND ONLY. 
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THE SIX AVAILABLE LIBRARY 3UB-C0MMAN0S ARE! 

CALL—TO LOAD A PROGRAM STORED ON DISK INTO THE USER'S CORE 
DELETE—TO DELETE A PROGRAM STORED ON DISK 
SAVE—TO STORE A COPY OF A USER'S PROGRAM ON THE DISK 
XTEND—TO CHAIN FROM A PROGRAM IN CORE TO A PROGRAM STORED ON DISK 
♦F* OUTPUT—TO CREATE A DATA FILE ON DISK OR OPEN AN ALREADY EXISTING 
*F* DATA FILE FOR OUTPUT, 

*F* INPUT—TO OPEN A DATA FILE TO READ THE INFORMATION BACK INTO CORE, 

♦F* LIBRARY OUTPUT AND INPUT WILL BE EXPLAINED MORE FULLY IN THE 
*P* SECTION I DATA FILES IN FOCARL. 


LIBRARY SAVE L 8 «NAME> 


THIS COMMANO STORES A COPY OF THE PROGRAM PRESENTLY IN THE USER'S 
CORE IN A DISK FILE WITH THE GIVEN NAME, THIS FILE IS STORED ON THE 
LIBRARY OF THE ACCOUNT THAT THE USER IS LOGGED IN UNDER, 

*F* A DOLLAR SIGN FOLLOWING THE NAME TELLS FOCARL TO DELETE ANY FILE 
*F* HAVING THE NAME SPECIFIED IF IT ALREADY EXISTS ON THE CURRENT ACCOUNT 

*f* before saving the program, this is similar to basics "replace". 

*F♦ EXI #L 3 PROGRMS 


library call l c «name> CACCT #1 

THE CALL COMMAND IS USED TO COPY A PROGRAM STORED ON DISK INTO THE 
U8ERIS CORE, 

*Q* COLPAC LOOKS FOR A FILE OF THE GIVEN NAME, AND CHECKS THAT IS 
*C* EITHER A COLPAC OR A FOCARL PROGRAM FILE, IT THEN ERASES THE 
*C* PROGRAM THAT IS IN THE 8/L AND READS IN THE PROGRAM FROM DISK. 

*C* PROGRAMMED INDIRECTLY, LIBRARY CALL ACTS EXACTLY LIKE A LIBRARY 

*F* FOCaRL*CAN ONLY READ IN FOCARL PROGRAM FILES. IT ERASES THE PROGRAM 
*F* THAT IS IN CORE AND THE VARIABLES BEFORE DOING SO. 


LIBRARY CALL CAN ALSO BE USED TO CALL A PROGRAM FROM THE PSEUDO 
LIBRARY, ACCOUNT 3, OR FROM AN ACCOUNT OTHER THAN THE ACCOUNT 
THE USER IS CURRENTLY LOGGED IN UNDER. AN ASTERISK FOLLOWING THE FILE 
NAME IS USED TO READ A PROGRAM FROM THE PSEUDO LIBRARY, 


EXI *L C PROGRM* 

TO CALL A PROGRAM THAT IS STORED UNDER ANOTHER ACCOUNT NUMBER, FOLLOW 

THE NAME of the file by a space and the account number it is stored 

UNDER, EXAMPLE! *L C SNOBAL 301 

library delete l d <name» 

THIS COMMAND OELETES THE DISK FILE WITH THE GIVEN NAME FROM THE 
LIBRARY OF THE ACCOUNT THE USER IS LOGGED IN UNDER. 

*F* PROGRAM EXECUTION HALTS UPON COMPLETION OF THIS COMMAND, 
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LIBRARY EXTEND L X <NAME> [ACCT #) tLAE) 


(AE IS AN ARITHMETIC 

EXPRESSION) 


THE LIBRARY EXTEND COMMAND IS USED IN "CHAINING" FROM ONE FOCARL 

program to another, because of the limited core available for program 
and variable storage# the user may be unable to execute his entire 

PROGRAM AS ONE IF IT USES A LARGE NUMBER OF VARIABLES. THE LIBRARY 
EXTEND COMMAND# INCLUDED as a LINE IN THE PROGRAM, PERFORMS THREE 

operations when IT IS executeoi 

1) IT RETAINS THE SYMBOL TABLE, BUT ERASES THE PROGRAM IN CORE 

2) IT LOADS THE PROGRAM SPECIFIED FROM DISK INTO THE U8ER»S CORE 
IT BEGINS EXECUTION AT THE LOWEST LINE NUMBER, 

EXECUTED DIRECTLY, LIBRARY EXTEND IS EXACTLY LIKE LIBRARY CALL. 
IT BEGINS EXECUTION AT THE LINE NUMBER SPECIFIED. IF NO LINE 
NUMBER IS SPECIFIED, EXECUTION STARTS AT THE LOWEST LINE NUMBER 
EXAMPLE OF LIBRARY EXTEND WITH A LINE NUMBER SPECIFIED! 

*L X PROG LS0.22 


♦ C* 
#C* 
♦F* 

#P* 
#P * 


3 ) 


3 ) 


IF The program to which one is extending is too LARGE TO FIT IN CORE^ 
SIMULTANEOUSLY WITH ALL THE VARIABLES EXISTING AT THAT TIME, 

PROGRAM EXECUTION HALTS. 


THE EXTEND COMMAND CAN ALSO BE USED TO REFERENCE PROGRAMS ON OTHER 
ACCOUNTS BY FOLLOWING THE NAME OF THE FILE BY THE ACCOUNT NUMBER 
OR BY AN ASTERISK. EXAMPLE! 


04,05 L X BTLSH2 301 
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THE FOLLOWING EXAMPLES ILLUSTRATE THE USE OF THE LIBRARY COMMANOS. 


*L C PARTI 
♦WRITE 
C FQCARL«14 

01.10 TYPE "WE WILL BEGIN HEREl% I 
01,20 ASK ?A B CT, i 
01,90 TYPE "NOW WE WILL XTENDJ "Iti 
01,40 L X PART2 

01,60 TYPE "MERE WE COME BACK TO THE FIRST PART TO QUIT!",! 
01,60 QUIT 
♦L C PART2 
♦WRITE 
C POCARLM4 

03,20 TYPE "THIS Is T«E PROGRAM WE XTEND TO.",I 
C &3,30 TYPE "SECOND LINE OF XTEND PROGRAM!", I 
03,40 TYPE "A IS «,A," B IS ",B,« C IS ",C,1 
03,50 L X PARTI LI.5 
♦L C PARTI 
♦ GO 

WE WILL BEGIN HERE! 

A 1*2,5 B 113.74 Cl.089 
NOW WE WILL XTENOl 


THIS 18 THE PROGRAM WE XTEND TO, 

SECOND LINE OF XTEND PROGRAM! 

A IS *2,00000 B IS 13,7400 C IS 0,08900 
HERE WE COME BACK TO THE FIRST PART TO QUIT! 
♦ 


25, LOGOUT COMMAND 

THE LOGOUT COMMAND IS USED TO EXIT FROM THE POCARL LANGUAGE AND TO 
RETURN TO TS8/8 MONITOR, 

*€♦ YOU CAN NOW RUN ANY PROGRAM WHICH DOES NOT LOAD INTO THE 8/L# OR 
♦C* EVEN LOGOUT THE 8/L TERMINAL FROM THE TIMESHARING SYSTEM, AND RETURN 
*C* TO CQLPAC CAFTER LOGGING BACK IN IF YOU LOGGED OUT OF THE SYSTEM) 

♦C* BY TYPING "R COLPAC»R" AND RETURN AFTER MONITOR'S YOUR PROGRAM 

*C* WILL STILL BE INTACT AND YOUR VARIABLES WILL BE UNCHANGED FROM 

♦C* THE TIME WHEN YOU LOGGED OUT OF COLPAC. IF OUTPUT WAS TO THE SCOPE 

♦Cw WHEN YOU LOGGED OUT IT WILL STILL BE TO THE SCOPE, 

*P* FOCARL USERS CAN RE-ENTER FOCARL BY SIMPLY TYPING "START" AND RETURN 
♦F* AFTER MONITOR'S YOUR PROGRAM, VARIABLES AND I/O STATUS WILL 

*F* BE THE SAME AS WHEN YOU LOGGED OUT. NOTE! THIS WILL NOT WORK IF 

*F♦ YOU RUN ANOTHER PROGRAM BETWEEN LOGGING OUT OF FOCARL AND TYPING 

♦F^ "START" BECAUSE YOUR CORE C0NTENT8 WOULD BE DESTROYED, ONLY A FEW 
♦F^ MONITOR COMMANDS SUCH AS "TIME", "TALK", AND "USER" CAN BE EXECUTED 
*F* WHICH WILL NOT AFFECT YOUR CORE CONTENTS, 
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26, *F* DISK DATA FILES IN FOCARL 


IN ADDITION TO STORING FOCARL PROGRAMS ON THE DISK# IT IS ALSO 
POSSIBLE# USING FOCARL# TO CREATE AND ACCESS DATA PILES ON DISK, THE 
FILES ARE SET UP AS ONE-DIMENSIONAL ARRAYS OF NUMBERS# WITH THE NUMBERS 
REFERENCED VIA THEIR LOCATION IN THE FILE. 


OPENING A DATA FILE FOR OU7PUT--LIBRARY OUTPUT 

THE LIBRARY OUTPUT COMMAND IS USED TO CREATE A DATA FILE OR TO 
OPEN aN ALREAOY EXISTING DATA FILE IF THE NAME IS FOLLOWED BY A 
DOLLAR SIGN* 

THE FORMAT OF THE COMMAND IS SIMPLY! L 0 «FILE NAME* 

IF THERE ARE NO DISK SEGMENTS AVAILABLE FOR A NEW DISK FILE AN ERROR 
WILL RESULT. IF THERE IS A FILE WITH THE SPECIFIED NAME ALREADY IN 
EXISTENCE AND A DOLLAR SIGN DOES NOT FOLLOW THE NAME AN ERROR WILL 
ALSO RESULT. 

WRITING ON AN OUTPUT FILE 


ONCE AN OUTPUT FILE HAS BEEN INITIALIZED, IT CAN BE USED FOR STORING 
DATA, DATA IS OUTPUT TO THE DISK BY USING THE XL FORMAT OPTION OF THE 
TYPE COMMAND. THE format OF THE COMMANDS ARE! 


TYPE XL<ALPHA>,«BETA*,«THETA*,... 
WHERE «ALPHA* SPECIFIES THE STARTING 
OF THE OUTPUT VALUES <BETA»,«THETA*# 


LOCATION (ON DISK) FOR STORAGE 
AND SO ON 


TYPE XL#«8ETA*,<GAMMA»#.,. 

WHERE «BETA* IS WRITTEN IN THE LOCATION FOLLOWING THE LAST 
NUMBER OUTPUT TO DISK# «GAMMA* IS STORED IN THE LOCATION 
FOLLOWING «BETA»# AND SO ON, 
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OPENING A DATA PILE FOR INPUT—LIBRARY INPUT 

BEFORE ONE MAY RECALL INFORMATION FROM A DATA FILE, IT MUST BE 
OPENED AS AN INPUT FILE* THE LIBRARY INPUT COMMAND CL I «NAME> CACCT #3) 
IS USED TO INITIALIZE AN EXISTING DATA FILE AS AN INPUT FILE, IF THE 
FILE DOES NOT EXIST, POCARL WILL RETURN AN ERROR MESSAGE, THE INPUT 
ACCESS POINTER IS RESET TO ZERO (THE FIRST LOCATION IN THE DATA FILE), 

READING FROM AN INPUT FILE 

ONCE A DATA FILE HAS BEEN INITIALIZED, INFORMATION MAY BE READ FROM 
IT BY SPECIFYING THE %L FORMAT IN AN ASK STATEMENT, ANALAG0U3 TO 
THE TYPE COMMANDS* 

abk xl<alpha, «BETa>» <THETAw, ... 

WILL READ VALUES STARTING FROM LOCATION <ALPHA» OF THE OISK FILE AND 
STORE them as the variables «BETA>, «theta>, AND SO ON, 

W ASK XL, «GAMMA», «DELTAm 

WILL READ IN THE NEXT TWO SEQUENTIAL LOCATIONS AND STORE THEIR VALUES 
AS THE VARIABLES «GAMMA> AND «DELTA», RESPECTIVELY. 

NOTE* <ALPHA* IS AN ARITHMETIC EXPRESSION, «BETA>, ETC, ARE ARITHMETIC 
EXPRESSIONS IN THE TYPE STATEMENT, BUT MUST BE VARIABLES IN THE 
ASK STATEMENT, 


NOTES ON USING DATA FILES AND XL FORMAT 

SPECIFYING XL IN EITHER A TYPE OR AN ASK STATEMENT SELECTS DISK 
FOR BOTH INPUT AND OUTPUT, UNLESS AN EXPRESSION FOLLOWS THE "L" 
IN XL, THE ACCESS POINTERS ARE NOT AFFECTED. 

ONCE XL IS SPECIFIED, ALL I/O IS ASSUMED TO BE DISK UNTIL ANOTHER 
FORMAT IS USED, SUCH AS X, XA.BC, OR XA. 

WHEN SPECIFYING A LOCATION IN A DISK I/O STATEMENT, NO COMMA 
SEPARATES XL AND ITS FIRST ARGUMENT, NOR IS A SPACE REQUIRED 
BETWEEN THEM, 


WHEN INPUTTING FROM AND OUTPUTTING TO THE SAME DATA FILE, EACH COMMAND 
KEEPS ITS OWN POINTER AS TO THE LOCATION IT WILL NEXT REFERENCE ON 
DISK, 

SPECIFYING X, XA.BC, OR XA IN AN ASK OR TYPE STATEMENT WILL CHANGE 
I/O FROM OISK DATA FILE I/O TO TTY, PUNCH, LINEPRINTER, READER, OR 
NONPRINTING DEPENDING ON THE CURRENT I/O DEVICES SELECTED USING 
THE OPTION COMMANO, 

THE EXAMPLE ON THE NEXT PAGE SHOULD HELP CLARIFY SOME OF THE AM¬ 
BIGUITIES THAT HAVE ARISEN IN THE PRECEDING EXPLANATION, 
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* 

* 

•WRITE 
C PUCARL-14 

01,05 TYPE "THIS IS A DEMONSTRATION PROGRAM, ILLUSTRATING THE", 1 
01,07 TYPE "USE OP DISK DATA PILES,",1,1 

0 i ,09 Type "the program stores the squares op the first 100 positive ",j 

01.11 TYPE "INTEGERS ON DISK AND RETRIEVES THEM AS REQUESTED" 

01,12 TYPE » BY THE USER.",1,1 

01,15 L 0 TlJC THIS CREATES DATA PILE AND INITIALIZES IT FOR OUTPUT 
01,18 L I TUC THI8 INITIALIZES PILE FOR INPUT 

01,20 FOR 1*1,100JTYPE XL,I*2fC WRITES FIRST 100 SQUARES ON DATA PILE 

01,50 ASK X,"NUMBER YOU WANT THE SQUARE OF«,QU,l 

01,32 IF CQU) 1.97,1.97,1.33 

01,33 IF CQU-FITR(QU)) 1,95,1.35,1.95 

01,35 IF (QU-101) 1,38fTYPE "VALUE TOO LARGE",if GOTO 1.3 

01,38 ASK XLQU,AN>C THIS GETS THE VALUE FROM DISK 

01,40 TYPE X5,"THE SQUARE OP ",QU," IS ",AN,1 

01,43 ASK "AGAIN! «N0«,5>",AG,11 IF (AG-,5) 1,3,1.9,1.3 

01,90 L 0 TUC DELETES DATA PILE, SINCE IT IS TRIVIAL, AND HALTS US 

01,95 TYPE "VALUE IS NOT AN INTEGER. TRY AGAINI",lfGOTO 1.3 

01,97 TYPE "PROGRAM WORKS FOR POSITIVE INTEGERS <*100",lIGOTO 1,3 

« 


• GO 

THIS IS A DEMONSTRATION PROGRAM, ILLUSTRATING THE 
USE OF DISK DATA PILES, 

THE PROGRAM STORES THE SQUARES OP THE FIRST 100 POSITIVE 
INTEGERS ON DISK AND RETRIEVES THEM AS REQUESTED BY THE USER. 

NUMBER YOU WANT THE SQUARE 0FI33 
THE SQUARE OP 33 IS 1089 
AGAIN! «NO*,5> 10 

number tou want the square ofigg 

THE SQUARE OP 99 IS 9801 
AGAIN? «N0«,5»I 

NUMBER YOU WANT THE SQUARE OFI0 
program works for positive integers <*100 
NUMBER TOU want The SQUARE 0PI33.4 
VALUE is NOT AN INTEGER. TRY AGAINI 

number you want the square OP 1201 

VALUE TOO LARGE 

NUMBeR YOU WANT THE SQUARE 0F*97 
THE SQUARE OP 97 IS 9409 
AGAIN? «N0*,5M,5 

• 

* 
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27. *F + COMPUTED FILE NAMES 


COMPUTED FILE NAMES PROVIDE FLEXIBILITY IN FILE REFERENCING, FILE 
NAMfcS MAY BE CONSTRUCTED FROM UP TO SIX EXPRESSIONS, OR COMBINATIONS 
OF CHARACTERS AND EXPRESSIONS. 

EXAMPLES! 


*L C (20) 

+L t (20,21,22) 

*L C (1,2,3,4,5,6) 
•L C (1+1,2*2,3+3) 
+L C (X+4,3+I) 

*U C FI(1,2)2B 
+L C FI(0Li0E)+ 


-IS THE SAME AS L C T, FILE NAME "T" 

-IS THE SAME AS L C TUV, FILE NAME M TUV" 
-FILE NAME "ABCDEF" 

-FILE NAME "BOF» 

-IF X*1, ANO 1*2, FILE NAME "EF« 

-FILE NAME "FIAB2B" 

-FILE NAME "FILE" FROM THE PSEUDO LIBRARY 


ONE MIGHT ASK THE USER TO GIVE THE NAME OF A DATA FILE. 

EXI 

01.10 ASK XA,«6-CHARACTER FILE NAMET",A,B,C,D,E,G,1 

01,20 LIBRARY OUTPUT (A,8,C,D,E,G)S>C USE FILE IF IT ALREADY EXISTS. 

01,30 type »doni«hquit 


THIS PROGRAM MOULD OPEN THE FILE HAVING THE NAME THE USER SPECIFIES, 
THE "S" TELLS FOCARL TO USE THE FILE HAVING THE NAME GIVEN IF IT 
ALREADY EXISTS ON THE SAME ACCOUNT, IF NOT, A FILE BY THAT NAME IS 
CREATED, 

THE EXPRESSION FOR A CHARACTER IS TAKEN TO BE THE DECIMAL VALUE OF 
THE SIX-BIT CHOPPED ASCII CODE FOR THE CHARACTER. SPACES ARE SQUISHED 
OUT OF FILE NAMES, 

NOTE! «L C (A,B,C,D) MILL CALL THE PROGRAM WITH THE NAME 
"AB" IF A*1, B*2, AND C*D*32, SINCE 32 IS EQUIVILENT TO A SPACE, 

THAT IS, SPACES MAY BE USED TO PAD OUT A FILE NAME. 

ALL LIBRARY COMMANDS ACCEPT COMPUTED FILE NAMES IN FOCARL. 


20, OPTION COMMANDS 

OPTIONS! TELETYPE, LINgPRINTER, PUNCH, READER, NON-PRINTING, FORMFEED 
SCOPE, 

OPTION TELETYPE (0 T) 

0 T IS USED TO DESIGNATE THE TTY AS THE INPUT/OUTPUT DEVICE. THE TTY 
IS THE OUTPUT DEVICE ASSUMED BY FOCARL UPON ENTRY. 0 T WILL RESTORE 
TTY PRINTING FROM ANY OF THE OTHER DEVICE DESIGNATIONS AND FROM THE 
0 N COMMAND. 

+F+ NOTE! THE SELECTION OF A DISK DATA FILE FOR I/O IS NOT AFFECTED BY 
*F+ 0 T NOR ANY OF THE OTHER OPTIONS. THE X OPTION MUST BE USED 

*F+ TO RESTORE NUMERICAL I/O TO THE TTY, 
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OPTION LINEPRINTER (0 L) 

*C* 0 L I* AVAILABLE IN COLPAC ONLY IP THE USER TYPES "R COLPAClLPT*" 

*C* WHEN HE INITIALLY RUNS COLPAC, THIS CAUSES AN OVERLAY TO BE LOADED 
#C* INTO THE 8/L ALONG WITH COLPAC WHICH PERMITS USE OP THE VIDEOJET 
*c* lin°printer U connected to the computer center b/l. this feature is 
•C* ONLY USEFUL IP TOU ARE RUNNING COLPAC AT THAT TERMINAL, 

*F* 0 L DESIGNATES THE LINEPRINTER AS OUTPUT DEVICE, 

OPTION PUNCH CO P) 

*C* 0 P CAUSES THE CURRENT PROGRAM TO BE PUNCHED ON THE HIGH-SPEED PAPER 

*C* TAPE PUNCH IN THE COMPUTER CENTER, SO, UNLESS YOU PHONE THE 

#C* COMPUTER CENTER AND ASK SOMEONE TO MAKE SURE THE PUNCH IS TURNED ON* 

Je. IT IS BIST NOT TO USB THIS OPTION UNLESS TOU ARE RUNNINS AT THE 
*C* COMPUTER CENTER S/L TERMINAL AND CAN CHECK THE PUNCH YOURSELF, 

#F* 0 P DESIGNATES THE HIGH SPEED PUNCH AS OUTPUT DEVICE, 

OPTION READER (0 R) ^ 

*C* 0 R CAUSES COLPAC TO ERASE THE CURRENT PROGRAM IN CORE ANO TO READ 
*C* A NEN PROGRAM FROM THE HIGH-SPEED READER IN THE COMPUTER CENTER, 

.1, AS HHEN USIN8 0 P, IT IS BEST TO USE THIS OPTION ONLY PROM THE S/L 
•C* TERMINAL IN THE COMPUTER CENTER, SINCE ONE'S PAPER TAPE MUST BE 

*P# 3T T aS°; DIRECT COMMAND WILL READ IN A PROGRAM FROM THE HIGH SPEED 

•P* READER, IT DOES NOT ERASE THE CURRENT PROGRAM FIRST, WHEN THE 

#P# END OF THE PAPER TAPE IS REACHED, INPUT IS RESTORED TO THE TTY, 

aF* AS AN INOIRECT COMMAND, ANY REQUEST FOR DATA BY MEANS OF AN ASK 

ftp* STATEMENT (PROVIDED THAT DISK DATA I/O IS NOT SELECTED) WILL 

*F* READ PROM THE HIGH SPEED REAOER AND THE ASK COMMAND'S "I” WILL 

If NOT BE TYPED. BE SURE TO INCLUDE A DELIMITER (SPACE, COMMA, OR RETURN) 

*p* between data values on the paper tape, if the end op the tape is 

*F* REACHED WHILE in INOIRECT MODE AN ERROR USUALLY RESULTS, 

OPTION NON-PRINTING (0 N) 

0 N IS USED TO UNDUPLEX THE TTY TO FACILITATE READING IN SLOW-SPEEO J 

paper tapes, o t must be used to restore echoing (duplex), 
option FORMFEED (0 F) 

0 F IS USED TO GENERATE LEADER/TRAILER CODE FOR PUNCHING PAPER TAPES, 

IF THE LINEPRINTER IS DESIGNATED AS OUTPUT DEVICE AT THE TIME, A 
FORMFEED WILL RESULT. 

OPTION 8C0PE (0 S) 

*C* 0 8 IS USED TO TRANSFER ALL OUTPUT, INCLUDING CHARACTER ECHO, ONTO 
*C* THE SCOPE. 

*F* 0 8 IS IGNORED BY FOCARL. 


*F® NOTE* ASSIGNABLE DEVICES ARE RELEASED WHEN FOCARL TYPES ITS *. 
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2P. use OF HIGH AND 1.0-SPEED PUNCH AND READER FOR PROGRAM SAVE AND 
RESTORE. 

HIGH-SPEEO PAPER TAPE PUNCH 

TO PUNCH A COPY OF YOUR PROGRAM ON THE HIGH-SPEED PUNCH, YOU MUST 
FIRST BE SURE THAT IT IS TURNED ON, IF YOU ARE IN THE LAB, WALK OVER 
AND CHECK THAT IT IS TURNED ON, AND THAT THERE IS A FOLD OR TWO OF 

leader tape punched, if you are at a remote terminal, call ext. ais 

and HAVE THE CONSULTANT OR LAB ASSISTANT READY THE PUNCH FOR YOU. 

TYPE The COMMAND 0 P (OPTION PUNCH), 

♦F* THEN TYPE the command, write, 

IF NO ONE ELSE HAD THE PUNCH ASSIGNED, YOUR PROGRAM SHOULD BEGIN 
PUNCHING OUT, 

*F* WHEN IT IS DONE TYPE 0 T (OPTION TELETYPE). 

PUNCH A FOLD OR TWO OF TRAILER BEFORE YOU TEAR THE TAPE OFF TO ENSURE 
THAT YOU HAVE YOUR ENTIRE PROGRAM, 

*F* THIS MAY BE DONE BY TYPING 0 F (OPTION FORMFEED) ONCE OR TWICE 
#F* BEFORE TYPING 0 T. 

THEN TURN THE PUNCH OFF. IF YOU ARE AT A REMOTE TERMINAL, TELL THE 
CONSULTANT YOUR NAME AND/OR THE PROGRAM NAME, 80 HE CAN LABEL THE 
TAPE. ALSO INFORM HIM WHERE TO LEAVE THE TAPE SO THAT YOU CAN FIND IT 
WHEN YOU COME TO PICK IT UP, 

*F* EXI *0 Pro FfW|0 FI0 T THESE COMMANDS WILL PUNCH THE 

♦F* PROGRAM WITH LEADER/TRAILER, 


HIGH-SPEED PAPER TAPE READER 

MOUNT THE TAPE IN THE READER SO THAT THE FOLLOWING CONDITIONS ARE 

satisfiedi 

1) THE ARROWS PRINTED ON THE TAPE ARE VISIBLE (ON THE TOP OF THE TAPE) 

2) TH| ARROWS POINT TO THE LEFT AS YOU FACE THE READER 

3) LEADER TAPE, NOT YOUR PROGRAM, IS OVER THE READ HEAD 

TYPE THE COMMAND, 0 R (OPTION READER). THE TAPE SHOULD BEGIN READING. 

WHEN IT HAS BEEN READ IN COMPLETELY, FOCARL WILL TYPE AN *, PUSH THE 
WHITE BUTTON ABOVE THE READ HEAD TO RUN THE TRAILER THROUGH THE REAOER 
OR LIFT THE METAL PLATE AND REMOVE THE TAPE, IF YOU HAVE ANY DIFFICULTY, 
ASK THE CONSULTANT OR LAB ASSISTANT FOR HELP. 

•♦NOTE** ABSOLUTELY DO NOT READ OILED PAPER TAPE IN THE HIGH-SPEEO READER1J 


LO.SPEED PAPER TAPE PUNCH AND READ 

TO MUNCH A SLOW SPEED PAPER TAPE PROGRAM COPY TYPE ”0 F|W|0 F" AFTER 
FOCARL'S "*", PRESS "ON" ON THE PUNCH, AND TYPE RETURN, 

TO READ A SLOW SPEED PAPER TAPE, ERASE ANY OLD PROGRAM BY TYPING "E A" 
AND RETURN, INSERT THE TAPE IN THE READER, TYPE "0 N», AND MOVE THE 
REAOER SWITCH TO "START". THE TAPE SHOULD BEGIN READING IN, WHEN IT IS 
FINISHED, TYPE "0 T". 

*C* "0 8" MAY BE TYPED INSTEAD OF "0 N«, AND THE PROGRAM WILL BE LISTED 
*C* ON THE SCOPE AS IT IS READ IN. 
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30, ERROR MESSAGES, COMPUTED LINE AND GROUP NUMBERS, RANDOM NUMBER 

generator initialization 
error messages 

when pqcarl detects a syntax error in programming or is unable to 

EXECUTE a COMMAND* IT WILL TYPE an ERROR ME8SAGE. THE ERROR MESSAGE 
HAS THE PORMI 

*C* ERROR (NUMBER) » (LINE NUMBER) 

*F* 7(ERROR NUMBER) P (LINE NUMBER) 

IF THE ERROR WAS DETECTED WHILE EXECUTING A PROGRAM, OR SIMPLVI 

*C* ERROR (NUMBER) 

*F* ? (ERROR NUMBER) 

IF THE ERROR OCCURRED WHILE TYPING OR EXECUTING A DIRECT COMMAND. 

A LIST OF ERROR DIAGNOSTICS IS GIVEN IN THE APPENDICES. 


COMPUTED LINE AND GROUP NUMBERS 

COMPUTED LINE AND GROUP NUMBERS (I.E., ARITHMETIC EXPRESSIONS) MAY BE 
SUBSTITUTED FOR FIXED LINE NUMBERS IN ALL COMMANDS (IF, DO, GOTO, AND 
WRITE) EXCEPT ERASE AND MODIFY. 

EXAMPLE I GOTO 4*H*FITR(U-.5)*0.2 

»F* COMPUTEO LINE NUMBERS MAY ALSO BE USED IN THE LIBRARY EXTEND COMMAND, 


*F* RANDOM NUMBER GENERATOR INITIALIZATION 

*F* THE RANDOM NUMBER GENERATOR IS "RANDOMIZED" DURING THE INITIAL 
*F* DIALOGUE. 











31. COMMAND SUMMARY 

command option syntax 


COMMENT 

DO 

erase 


*C* 

*F* 

FOR 


GO 

GOTO 

IF 


ACTION 


ASK 

%A 

A X A, B 

*F* 

XLA, C 


«F* 




1 

A 1 


« 

A W 


n 

A »A IS",A 


T 

A TAT 


S 

A S 

♦ C* 

s 

A SAE 

*P* 

s 


BREAK 


BREAK 


C THIS IS,., 
DO 

DO 3 

00 1,23 

ERASE 
ERASE 3 
ERASE 2,51 
ERASE ALL 
ERASE SCOPE 
ERASE SCOPE 


ACCEPTS ONLY ONE CHARACTER FOR 8, 

STORES ASCII VALUE OF CHARACTER 
READS VALUE FROM LOCATION A IN DISK 
DATA FILE INTO VARIABLE C 
GENERATES CR/LP COMBINATION 
GENERATES A CARRIAGE RETURN (CR) 
VERBATIM PRINTING OF CHARACTER STRINGS 
TYPES OUT variable NAME, ASKS FOR VALUE 
GENERATES LISTING of symbol table 
SETS THE SCOPE CHARACTER SCALE SIZE 
FOCARL IGNORES THE & OPTION 

CAUSES EARLY EXIT FROM A FOR LOOP 

DENOTES NON-EXECUTED TEXT 

BEGINS EXECUTION AT LOWEST LINE NUMBER 
EXECUTES GROUP 3, BEGINNING AT LOWEST 
LINE NUMBER OF GROUP 3 
EXECUTES LINE 1,23 

ERASES THE SYMBOL TABLE 
ERASES GROUP 3 
ERASES LINE 2.51 

ERASES ENTIRE PROGRAM AND SYMBOL TABLE 
ERASES SCOPE 
IS IGNORED BY FOCARL 


FOR 1*1,5, UT »*»' 
FOR J«l,6fT X2, J 


PERFORMS ITERATIONS OF COMMAND 
STRING FOLLOWING "f» 


GO 

GOTO 1.03 


STARTS EXECUTION AT LOWEST LINE NUMBER 
BEGINS (CONTINUES)EXECUTION AT LINE 1.03 


IF CA-8) 1.3,l.B 1.4 
N Z P 


IF (B-13)4.2,5.WS B-A 


CONDITIONAL BRANCH STATEMENT* 
(A-6)«0 BRANCHES TO 1.3 
(A-6)«0 BRANCHES TO 1,5 
(A«6)»0 BRANCHES TO 1,4 


IF CAE REL AE)fCOMMAND STRING 

EXECUTES COMMAND STRING IF 
RELATION IS TRUE. AE IS ANY 
ARITHMETIC EXPRESSION. REL IS 
A relational OPERATOR OR 
COMBINATION OF THEM, 
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COMMAND 
*C* JOYSTICK 

*c* 

•c* 

♦c* 

*c* 

*c* 

♦c* 

»F* 

library call 


library delete 

LIBRARY EXTEND 


*F* 

*F * 

*F* 

♦ F* 

#F* library 

*F* LIBRARY 
oF * 

*F* 

*F* 

*F* 

* 7 * 

library save 

*F * 

#F* 

logout 


SYNTAX 


ACTION 


J X#Y 
J *»X»Y 


L C 
L C 
L C 
L D 
L X 


L 

L 


TEMR 

DEMO* 

PRGRAM 1234 

TEST 

TEMP 

TEMP LI.7 
GOODY 5555 


L 1 

INPUT 

OUTPUT 


TRIAL2* L3*X*R 
L I TRY1 
L 0 TRY! 


L 0 TRY2S 


L 

L 


TEST 

PROGS 


MODIFY 


L OR LOGOUT 


MODIFY 1.37 


EXECUTES REMAINDER OF LINE IF INTERRUPT 

BAR HAS BEEN PRESSED* ELSE, EXECUTION 

CONTINUES WITH NEXT LINE 

DISPLAY CURSOR* READ VALUES FOR X AND Y 

WHEN INTERRUPT BAP IS PRESSED 

READS X AND Y* DOESN»T WAIT FOR INTERRUPT 

BAR TO BE PRE8SE0 

POCARL IGNORES JOYSTICK COMMANDS 

LOADS A PROGRAM FROM DISK INTO CORE 
LOOKS ON PSEUDO LIBRARY FOR FILE 
LOOKS ON ACCT, 1234 FOR THE FILE 
DELETES THE PROGRAM TEST FROM DISK 
CHAINS FROM PROGRAM IN CORE TO THE 
PROGRAM CALLED TEMP ON DISK 
EXTEND TO PROGRAM* START AT LINE 1.7 
.95 GET PROGRAM FROM ACCOUNT 5555 

AND BEGIN EXECUTION AT LINE 31.95 
*,1 ARITHMETIC EXPRESSION FOR LINENO 
INITIALIZES DATA FILE FOR INPUT 
CREATES A DATA FILE ON DISK AND 
INITIALIZES IT FOR OUTPUT 
OPENS AN ALREADY EXISTING FILE FOR 
OUTPUT OR CREATES A NEW FILE IF 
NONE ALREADY EXISTS, 

OR CREATES A NEW FILE 
STORES THE PROGRAM IN CORE ON DISK 

deletes old file if it already 

EXISTS BEFORE DOING SAVE 
EXITS FROM FOCARL, RETURNS USER 
TO TSS/B MONITOR 

MODIFY A PROGRAM LINE 


L31 


OPTION FORMFEEO 

option lineprinter 

OPTION NON-PRINTING 
*C* option PUNCH 
*F* OPTION PUNCH 
♦ C* OPTION READER 
*F* OPTION READER 
*C* OPTION SCOPE 
*F* OPTION SCOPE 
OPTION TELETYPE 


OUTPUT LEADER/TRAILER OR FORMFEED ON THE LINEPRINTER 
SELECT LINEPRINTER FOR OUTPUT 
UNDUPLEX TTY 

PUNCH PROGRAM ON HIGH-SPEED PUNCH 

SELECT HIGH SPEEO PUNCH FOR OUTPUT 

READ A PROGRAM FROM HIGH-SPEED PUNCH 

READ A PROGRAM OR DATA FROM HIGH-SPEED READER 

SELECT SCOPE FOR OUTPUT 

FOCARL IGNORES 0 S 

SELECT TTY FOR I/O 


*C* PLOT 

p 

X»Y 

*C* 

p 

X,Y,"TEXT" 

*C* 

p 

X, Y, 

*C* 

p 

*, X, Y 

*c* 

p 

X, X, Y 

*t* 

p 

#,X»Y,D 


oF* PLOT 


PLOT THE POINT HAVING COORDINATES X,Y 

PRINT TEXT STRING AT POINT X,Y 

PLOT A HIDDEN LINE 

DRAW A LINE SEGMENT 

DRAW A CIRCLE 

DRAW AN ARC WITH (X,Y) AT CENTER, D*DEGREES 
IS IGNORED BY FOCARL 
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COMMAND 

ORTION 

SYNTAX 

ACTION 

QUIT 


QUIT 

STOPS PROGRAM EXECUTION 

RETURN 


RETURN 

DENOTES END OP A DO SUBROUTINE 

SET 


3 A«9.4/7. 

1 ASSIGNS VALUE OF RIGHT SIDE TO VARIABLE 

TYPE 

X 

TYPe X#A 

NUMERIC OUTPUT IN EXPONENTIAL FORMAT 


X8 

TYPE X4,A 

NUMERIC OUTPUT IN INTEGER FORMAT 


XA.BC 

T X9.04,A 

OUTPUT IN DECIMAL FORMAT 


XA 

T XAfL 

ASCII CHARACTER OUTPUT 

#F* 

XU 

T XUAfB 

OUTPUT TO A DISK DATA FILE THE VALUE B 

AT LOCATION A 


1 

T l 

GENERATES CARRIAGE RETURN/LINE FEEO 


• 

T n 

generates a carriage return 


s 

T S 

GENERATES A PRINT-OUT OF THE SYMBOL 

TABLE UNDER THE EXISTING FORMAT 


It 

T "HI" 

VERBATIM PRINTING OF CHARACTER STRINGS 


? 

T TAT 

TYPES OUT VARIABLE NAME, THEN VALUE 

*C* 

& 

T SAE 

SETS THE SCOPE CHARACTER SCALE SIZE 

*F* 

& 


IGNORED BY FOCARL 

WRITE 


WRITE AUL 
WRITE 9 
WRITE 2.72 

TYPES OUT A LIST OF THE ENTIRE PROGRAM 
LISTS GROUP S 

LISTS LINE 2.72 
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APPENDIX A — FUNCTIONS 


IN THE LIST OP FUNCTION FORMS AND COMMENTS WHICH FOLLOWS, 

(A) DENOTES A NUMBER, A VARIABLE, OR AN ARITHMETIC EXPRESSION, 
E,G,, FABS(BC), FSQT (7), FITR(5R*4*3/(L*2,1)), FABS(FCOS (1.57)) 

PERMANENT FUNCTIONS 


SQUARE ROOT FSQT(A) 
ABSOLUTE VALUE FABS(A) 
SIGN OF THE NUMBER FSGN(A) 
INTEGER PART FITR(A) 


RANDOM NUMBER FRAN(A) 


^ optional functions 

EXPONENTIAL FEXP(A) 

NATURAL LOGARITHM FLOG(A) 

ARCTANGENT FATN(A) 

COSINE FCOS(A) 

SINE FSINCA) 


A*»B|OTHERWISE, ERROR 

ABSOLUTE VALUE OF A 

YIELDS M IF (A)*»0f-1 ** (A)40 

YIELDS INTEGER PORTION OF NUMBER, NOT 

GREATEST INTEGER «*(A), 

FITR(7,4)*7 FITR(-3.9)»-3 

HERE VALUE OF (A) DOES NOT INFLUENCE 
THE VALUE OF THE FUNCTION CALL, 
GENERATES A NUMBER BETWEEN 0 AND 1 


RAISES E (2,71828) TO THE (A) POWER. 
•6164*(A)4*616 AND (A) MAY BE A NON* 
INTEGER, 

FLOG(2)*.60315 FLOG(2.71828)*1,00 

(A) IS ANGLE IN RADIANS 
(A) IS ANGLE IN RADIANS 


♦C* THESE FUNCTIONS ARE STANDARD IN COLPAC 


*F* RETAINING OPTIONAL FUNCTIONS 


*F* LEGITIMATE RESPONSES TO THE QUESTION, "FUNCTIONS*«, ARE* 


#F# 

AL OR 

ALL 

#F* 

N, NONE OR 

*F* 

FEXP 

EXP 

♦ F* 

FLOG 

LOG 

*F* 

FATN 

ATN 

*F* 

FC08 

cos 

♦ F* 

FSIN 

SIN 

*F* 

backarrow 


RETAINS 
RETURN RETAINS 

OR E RETAINS 
OR L RETAINS 
OR A RETAINS 
OR C RETAINS 
OR S RETAINS 
(SHIFT/O) DELETES 


ALL OPTIONAL FUNCTIONS 

NO optional functions 

EXPONENTIAL FUNCTION 
NATURAL LOGARITHM 
ARCTANGENT 

DOTH SINE AND COSINE 
BOTH SINE AND COSINE 
PREVIOUSLY TYPED RESP0N8E8 a 


#F* TO RETAIN SEVERAL OF THE FUNCTIONS, SEPARATE THE NAMES WITH C0MMA8 a 
*F* (E.G., FUNCTIONS* E»FLOG,ATN (RETURN)) 

#F* ALL RESPONSES MUST BE FOLLOWED BY A CARRIAGE RETURN, IP THE 
*F* RESPONSE WAS NOT UNDERSTOOD, FOCARL WILL ASK FUNCTIONS* AGAIN, 

»Ft WHEN A CORRECT RESPONSE IS GIVEN, FOCARL TYPES AN *, A ©ACKARROW 
*F* (SHIFT 0) DELETES THE PREVIOUS RESPONSE, 
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APPENDIX B 


.. ASCII ANO NUMERIC COOES 

C F0CARL-14 

Blilli) T ’’THIS PROGRAM GENERATES A TABLE OF THE NUMERIC CODES OF"# l 
01,20 T '‘ALPHABETIC CHARACTERS UNDER THE POSSIBLE FORMATS" # 1 


01.90 
01.40 
01.80 
01.62 
01.64 
01.56 
01.68 
01.60 

02.10 

02.11 

02,19 

02.15 

02.17 

02.19 

02.21 

02.26 

02.27 

03.29 

02.91 

02.99 

02.95 

02,99 

09,06 
09,06 
09,09 
M 


"CHARACTER 


ASCII CODE 
(OCTAL) 


XA 

« (DECIMAL) 

I«l*l,17510 210 3.051T 1 

1*176,18999 C01-176JD 210 3,0510 3.06 

1*186,19210 210 3.051T 1 

1*199,21813 C0*«192!D 210 3.051D 3.06 

1*219,22910 210 3.051T i 

2.29 


NUMERIC ",1 
(OECIMAL)"#! 


THIS DECOOES DECIMAL TO OCTAL «BA3E 10 TO BASE 0* 

CO* •1971C* THIS* SETS*1%ALUE OF 0 FOR E UNDER NUMERIC 
HI*FITR(1/64)19 H*HI*176 
M0*FITR((I-(Hl*64))/8)IS M*MD*l76 
L0*I»(HI*64*M0*6)19 L*L0+176 
RETURN 

T "SPACE "IS 1*16010 210 3,09 

T "LINE FEED"1S 1*13810 210 3,09 

T "RETURN "IS 1*14110 210 3,09 

T "BELL "IS 1*13510 21D 3,09 

T "RUBOUT "IS 1*25510 210 3.09 

T "LEADER"#!,"TRAILER "19 1*12810 210 3,09 
QUIT 


T 

T 

T 


"»%A,I," 


",X2,I+CO,1 
»,X3,I," 


" # X 3 # I # " 


" # X A # H, M, L 


",XA,H,M,L#1 


THIS PROGRAM GENERATES A TABLE OF THE NUMERIC COOES OF 


character 

I 

n 

n 

s 

X 

8 

I 

( 

) 

* 

♦ 


XA 

ASCII COOE 

(DECIMAL) 

(OCTAL) 

181 

241 

162 

242 

163 

243 

164 

244 

165 

246 

166 

246 

187 

247 

168 

250 

169 

251 

170 

252 

171 

253 

172 

254 

173 

255 

174 

256 

175 

257 


NUMERIC 

(DECIMAL) 
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0 

1 

2 

a 

4 

9 

6 

7 

8 
9 
I 
I 
« 
n 




» 

1 

9 

A 

8 

c 

0 

E 

F 

6 

H 

Z 

J 

K 

L 

M 

N 

0 

R 

Q 

R 

8 

T 

U 

V 
w 
X 

Y 

z 

c 

0 

I 

A 


SPACE 
LINK F6E0 
RETURN 
BELL 
RU80UT 

leauer 

trailer 


176 

177 

178 
178 
180 
181 
182 

183 

184 
188 
186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 
209 
206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 
160 
138 
141 
135 
255 

128 


260 

261 

26e 

263 

264 

265 

266 
267 

270 

271 

272 

273 

274 

275 

276 

277 

300 

301 

302 

303 

304 

305 

306 

307 

310 

311 

312 

313 

314 

315 

316 

317 

320 

321 

322 

323 

324 

325 

326 

327 

330 

331 

332 

333 

334 
339 

336 

337 
240 
212 
216 
207 
377 


10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


200 
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APPENDIX C 
C FOCARL-14 


EXAMPLE OP A PROGRAM TRACE 


01 . 1 a c this program will find 

01.15 T "TYPE IN THE VALUES OP 
01,18 T "COEFFICIENT OP X*2, B 
01.17 T "IS A CONSTANT,"#1*l 
01.20 A ?A B C T,l,l 
01,23 8 RD"Ba2»4*A*C 
01,25 IP (RO) 3,05,1.3,2.05 
01.30 T "EQUATION HAS ONLY ONE 
01,32 6 4,1 


THE ROOTS OP A QUADRATIC EQUATION 
A,B#AND C, WHERE A IS THE",l 
THE COEPPICIENT OF X, AND C«,l 


ROOT I ",X6.04,«(B/2)#1#1 


02,08 T "EQUATION HAS TWO REAL ROOTS* " 
02,10 3 SRiPSQTCRD) 

02.20 T •(B-SRJ/2," ",»(B*SR)/2# 1# 1 

02,30 5 4.1 


03,05 

03,07 

03,10 

03.20 

03,30 


"EQUATION HAS TWO IMAGINARY ROOTSl"il 
RA* PSQTC-RD) 

•B/2," t ",RA # 

RAi-RA* T " " 

4.1 


n * 


I 

. 1*0 


3,1 IT M 


04,10 A "AGAIN <Y OR N> "L#l#llIF (L-BN) 1.2, 4. 2,1.2 
04,20 QUIT 


*60 

TYPE IN THE VALUES OP A#B,ANO C» WHERE A IS THE 
COEFFICIENT OP X*2, B THE COEPPICIENT OF X, AND C 
IS A CONSTANT, 


A II B 12 C 13 


equation has two imaginary ROOTS* 

•1,00000 ♦ 2,82843 * I 

•1,00000 ♦ -2,82843 * I 


AGAIN «Y OR N> IY 


A *1 B 12 C *1 

EQUATION has only one root* * 1.0000 
again <y or n> *y 

a *37 B 175,9 C 1-236 

EQUATION HAS TWO REAL ROOTS* 62.9073 -138,807 

AGAIN «Y OR N> IN 


* 
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• GO 1 

C C T ’’TYPE IN THE VALUES OP A,B,AND C# WHERE A IS THEi 
T "COEFFICIENT OF X*2, B THE COEFFICIENT OF X, AND Cl 
T^"IS A CONSTANT,! 

A *1 12 II ,1 

,1 

8 RD«B*2-4*A*C 

w IF CRD) 3,05,1.3,T "EQUATION HAS ONLY ONE ROOT* X6.04,-(B/2),« 1,00001 

» * 

6 4,1 

A "AGAIN «Y OR N» ,!Y 1 

JlF (L-0N) 1.2,4,2,1,2 
A II 12 |3 il 
.1 

S RD«8*2-4*A*C 

IF CRD) 3,05,T "EQUATION HAS TWO IMAGINARY ROOTS*! 

S RAi P8QT(*RD) 

T 1.0000" ♦ RA» 2.8284" * I S RAi-RAf T " 1 

fO 3.UT -B/2,- 1,0000" ♦ RA,• 2,8264" * I T 1 


G 4.1 

A "AGAIN «Y OR N» ,|N 1 
llF (L-0N) 1.2,4.2,QUIT 
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APPfcNDZX D — PROGRAM ILLUSTRATING THE BREAK COMMAND 


CQLPAC , 1970 


V * * w - 

01.19 

01.20 

01.30 

01.40 

01.60 

01.90 


E S 

FOR A*2,9jT %2,JH 
TYPE *3,l,«THAT'S 
r &>Q 

0 1 (91T HIP 0,«320. 
F J*l,8|S N»0 


ALL FOLKS"#lIF 
»<«|P 0,-320, 


tt>« 


02.10 T S2,"FIRST LOOP A i «,A,1 
02(20 FOR B»8,U,2>00 3 


03.20 IF 
03,30 T « 
03.39 IF 


(2*A*BM9)»BREAKfG 0T0 8.1 
SECOND LOOP B ■ ",B,1 
(B*l 1)IT " INNER LOOP COMPLETED", 1 


03.40 RETURN 


09.10 type S2."*****break from inner loopi 


",i 



* 

* 

*60 

FIRST LOOP A ■ 2 

SECOND LOOP B " 9 

SECOND LOOP B ■ 7 

SECOND LOOP B ■ 9 

SECOND LOOP B « 11 

inner loop completed 


FIR8T LOOP A i 3 
SECOND LOOP B * 9 

SECOND LOOP B • 7 

SECOND LOOP B * 9 

***»*BHEAK FROM INNER LOOPI***** 


FIRST LOOP A ■ 4 

SECONO LOOP B « 9 

SECOND LOOP B ■ 7 

*****BREAK FROM INNER LOOP1 

FIRST LOOP A ■ 5 

second LOOP B * 9 

»****BREAK FROM INNER LOOPI 

THAT■8 ALL FOLKS 
* 
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APPENDIX E — DIAGNOSTICS 


ERROR MESSAGES FOR COLPAC# 1870 


ERROR 00 
ERROR 01 


MANUAL START 

CONTROL/C RECOVERY OR LINE PRINTER ERROR 


ERROR 02 
ERROR 03 
ERROR 04 
ERROR 05 
ERROR 06 
ERROR 07 


DIRECT COMMAND OR TEXT LINE TOO LONG 
TOO MUCH TEXT—VARIABLES ERASED IF NOT 12K 
TOO MANY VARIABLES 

PU8H-0QWN OVERFLOW IN * FOR' OR iIF * 
PUSH-OQWN LIST OVERFLOW 
TELETYPE INPUT BUFFER OVERFLOW 


ERROR 0s 
ERROR 08 
ERROR 10 
ERROR 11 
ERROR 12 


INVALID COMMAND 

ILLEGAL LINE NUMBER ON TYPED TEXT LINE 
ILLEGAL LINE NUMBER OR FORMAT 
ILLEGAL CHARACTER IN TEXT 
ILLEGAL SCALE 


ERROR 13 
ERROR 14 
ERROR 15 
ERROR 16 
ERROR 17 
ERROR U 
ERROR 18 
ERROR 20 
ERROR 21 
ERROR 22 
ERROR 23 


LEFT OF "«»« OR MISSING "■« In IFOR* OR *SET» 
ERROR IN ’FOR * 

BAD ARGUMENT IN »IF * 

ILLEGAL ARGUMENT IN 1 ERASE • 

•ERASE! NOT DIRECT COMMAND 

•MODIFY• DID NOT FIND THE SPECIFIED LINE 

•MODIFY* NOT DIRECT COMMAND 

•GOTO' OR 'GO* DID NOT FIND THE SPECIFIED LINE 
»OQ» DID NOT FIND THE SPECIFIED LINE OR GROUP 
ILLEGAL OPTION IN ’OPTION* 

MORE ’BREAK* COMMANDS THAN ’FOR* COMMANDS 


ERROR 24 
ERROR 25 
ERROR 26 
ERROR 27 
ERROR 28 
ERROR 28 
ERROR 30 


NO ARGUMENT 
NI8SING OPERATOR 
EXCESS LEFT PARENTHESES 
MISSING LEFT PARENTHESES 
MIS-MATCHED PARENTHESES 
ILLEGAL VARIABLE NAME 
ILLEGAL SUBSCRIPT 


ERROR 31 
ERROR 32 
ERROR 33 
ERROR 34 
ERROR 35 
ERROR 36 
ERROR 37 

ERROR 38 
ERROR 38 
ERROR 40 


NEGATIVE OR ZERO ARGUMENT TO »FLOG» 
DIVISION BY ZERO 
NEGATIVE NUMBER TO *FSOT» 

EXPONENT TOO LARGE 


NUMERIC OVERPLOW OR UNDERFLOW 
LITERAL NUMBER TOO LARGE 
HIGH SPEED READER OUT OF TAPE, OR 
COLPAC MONITOR HALTED IN THE 8/1 
BAD FORMAT IN *PLOT» OR ’JOYSTICK’ 

NO DEGREES FOR ARC ’PLOTI 

i* B ! ARV C0MMAND * hle NOT FOUNO FOR CALL OR 
OELETEf FILE ALREADY EXISTS FOR SAVEf NOT A COLPAC OR 

4S5Ti R tai F i L 5l ° R DECTAPE DRIVE, PUNCH OR READER NOT 
AVAILABLE (CAN’T BE ASSIGNEO) 
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CODE 

700.00 

701.49 

701.93 

701.13 

702.42 
702.96 

703.16 

703.43 
705.<7 
706.03 
706.26 
706.82 
707.10 
707.22 
707.28 
707.99 

707.16 

708.60 

710.15 
710.33 

711.16 

711.<4 
712.05 
716.96 

720.42 

721.42 
722.78 
722.18 
723,37 
724.04 
724.07 
724.10 
724,30 
724,49 
724,87 

724.12 

724.13 
724, 1 5 
724,47 

725.14 
725.72 
725.93 
725.17 
725.44 


ERROR DIAGNOSTICS FOR FOCARL-VERSION 14 
MEANING 

CONTROL/C RECOVERY 
ILLEGAL LINE NUMBER USED 
NONEXISTENT GROUP REFERENCED BY "DO" 

NONEXISTENT LINE NUMBER REFERENCED BY "DO" 

SMSrmiM BY PU9H"00WN LIST 
SJnKI.TMT LI« USED AFTER -SOTO- OR -IF- 
illegal command used 

ILLEGAL USE OF FUNCTION OR NUMBER 
BAD ARGUMENT IN "FOR". "SET". OR "ASK" 

BAD SUBSCRIPT 

STORAGE IS FILLED BY VARIABLES 
MISSING OPERATOR IN EXPRESSION 

NO P OPERATOR T i1 S USED BEFORE PARENTHESIS 
NO ARGUMENT GIVEN AFTER FUNCTION CALL 
ILLEGAL FUNCTION NAME. DOUBLE OPERATORS, EXCESS 
PARENTHESES, OR EMPTY PARENTHESES 
PARENTHESES DO NOT MATCH 

invalid character typed 

LINEAR INTER 1 OR PUNCHES HUNS OR OEVICE NOT 
AVAILABLE, CI.E., CAN»T ASSIGN DEVICE) 

END OF TAPE ON H.S. READER 
IMAGINARY SQUARE root requested 
initial dialogue error 

NEGATIVE OR ZERO ARGUMENT FOR LOG 
NEGATIVE OR ZERO ARGUMENT FOR LOG 
TOO MANY "BREAKS" 

TOO MANY NESTED "FOR" LOOPS 

tiJRi 1 , PROGRAM^IS^TOO^LAROE OR ILLEGAL OPTION 
BAD ARGUMENT IN "IF" 

BAD ARGUMENT IN "ERASE" 

LIBRARY EXTEND ERROR* TOO MANY VARIABLES 
LINE NOT FOUND IN "MODIFY" 

ILLEGAL USE OF "MODIFY" OR "ERASE" "MUST BE A DIRECT 

ERROR N LEFT OF OR MISSING "«" IN "FOR" OR "SET" 

CANNOT SAVE PROGRAM* DISK FULL1 

EXCESS RIGHT TERMINATOR IN "FOR" OR "SET" 

ILLEGAL TERMINATOR IN "FOR" mmmam 

illegal file name or too many characters 
bad account number for file 

DISC^FULL^OR^PROTECTION ERROR ON SAVE OR DATA OUTPUT 
FILE NOT FOUND FOR CALL, DELETE, OR DATA INPUT 
OR PROTECTION VIOLATION 
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? 26.03 

726,16 

726,26 

726,57 

726.72 

726,60 

726,45 

726.10 
730.51 

731.10 
731.47 


2ri T * F ?i C i! 1 ' C * PR U) OR DATA PILE (.DAT) 

BAD DI3? pJLE^CCESrNuSfpB 09 ?? 0SRAM SAVC °* °*TA OUTPUT 

“i£ SImoImlv SS5” • IT MU,T “ N0N -"«*nve 

«*H«T T .“WId* OUTPUT FILe| R pROTECTe D OR DIEK , ULL 

UNRECOVERABLE^DISK^ERROR^ N ° T ,M,TI * LIMD tORENEO) 
exponent too large 
division by zero requested 
numeric overflow or underflow 

UNAVAILABLE FUNCTION USED 
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